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Sil-la. Trattino e a capo. 
L'unico prodotto per Macintosh che consente 
una presentazione dei testi davvero 
professionale, secondo le regole italiane di sillabazione. 

Da usare con MicrosoftWord, PageMaker, ecc. 



Nome e cognome 


Sì, desidero acquistare Sil-la. Scelgo la 
seguente formula di pagamento: 

I I Accludo assegno non trasferibile di lire 381.500 
■—* (Iva e spese di spedizione comprese), 
intestato a Editronica srl. 


Indirizzo.Cap. | I Accludo ricevuta di versamento su conto 

'—* corrente postale n. 19740208 intestato a 
Editronica srl, di lire 381.500 (Iva e spese di 

Città...Prov. spedizione comprese). 

□ Desidero fattura 

Ritagliare e spedire in busta chiusa a: Editronica srl, Corso Monforte 39, 20122 Milano. 


Sil-la è una realizzazione Computime S.r.l. Roma - Distribuzione in esclusiva: Editronica S.r.l. Milano 




















sommario 


1 

Executive CardFile. Per il II, ecco un sistema di schedari 
VJ intelligenti, cioè tutto quello che avete sempre desidera- 
to avere da un archivio: la flessibilità d'uso, la strutturato¬ 
vi ne gerarchica a schede, varie chiavi di inserimento. 

Dump 80 colonne. Questo programma non mancherà di 
* J ■ J affascinare i programmatori che operano sul Ile e sul Ile: 
_ j f quando lavorano con il video a 80 colonne, permette lo- 
fcB ro di effettuare lo screen dump! 

34 

Apple Maestro. E' finita l'epoca degli stonati: tutti posso¬ 
no imparare a comporre brani musicali. La tastiera del 
■ computer rivela una docilità insospettata, una volta istrui¬ 
ta con questo programma ottimamente strutturato. 

4 

Database per Mac. Scegliere il programma giusto non è 
■ J semplice. Sul database, però, non si può sbagliare: va a- 
H j cquistato una volta per tutte, perché cambiarlo può esse- 
re dannosissimo. Eccone cinque a confronto. 

1 

wmm Edilsoftware. Quali programmi offre il mercato ad architet- 

1 ti, edili e ingegneri? Non ce ne sono moltissimi, in con- 
fronto alle disponibilità per altre categorie professionali, 
^i ma qualche buon pacchetto non manca. 

i 

Ora e data. Quando nasce il vostro file? A che ora viene 
i \ modificato? Finora erano costose schede a fornirvi que- 
ste informazioni... Un programma per il ProDOS che inse- 
V^ gna al computer a tener nota del tempo che passa. 

1 

f \ ■■■■ Macnews. Novità del mese: plotter a 3 colori, un'applica- 
/ zione per lo studio dentistico, il MProlog, linguaggio del- 
/ la quinta generazione. E poi come sfruttare al meglio la 

V^ # rete, una gamma di raffinati accessori, un font editor. 

Ped-one. A proposito di schedari, vi piacerebbe archivia- 
t \ re con il mouse? Sull'Apple II, naturalmente. Tutte le pre- 
rj stazioni, minuziosamente analizzate, di un nuovo pro- 

V^ gramma per la gestione professionale delle informazioni. 

7 

f mtm Linguaggi per Mac. Universo programmazione: lo abita¬ 
ta no il dilettante e il professionista. Spesso confusi da 
un'unica etichetta, hanno in realtà problemi ed esigen- 
ze molto diversi. Quale linguaggio per ognuno di loro? 

Grafica. Sesta e ultima puntata sulle routine per l'utilizzo 
tJ " J della grafica in doppia alta risoluzione. Eccoci allo scorri- 
mento verticale: finalmente la piccola astronave del DHR 
V^ La Driver può davvero volare. 

Grafici per Mac. A curve, a barra, a torta? In valori assoluti 
y o percentuali? Su Macintosh è possibile, con questo pro- 

[ A f] gramma, creare tutti i tipi di grafici e, soprattutto, esportar¬ 
vi Vi fi poi per arricchire altri documenti. 

i 

h 
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, Pronto, PC? Tutto quello che un'agenda elettronica sa 
1 fare, ma anche qualcosa di assolutamente nuovo: il vo- 
I stro Apple II può formare il numero desideralo senza 
f nemmeno farvi sollevare la cornetta. 

i 

i' 

0 

mmm Appliscuola. Due servizi per chi studia: come realizzare 
i disegni prospettici con effetto tridimensionale con la ri- 

1 mozione di linee e facce nascoste e (a pag. 115) un trivia 

* da impostare a piacere, per tutte le materie. 


Le rubriche: 6 Applichi 120 Applipratica 

10 Applicosa 121 Applettere Architetti 

67 MacNews 124 Applihelp e ingegneri, 

102 Per chi comincia 126 Disk Service pag.52 
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Executive CardFile, pag. 18 
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Apple Maestro, pag. 34 
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LA SOCIETÀ CHE PRODUCE QUESTO 
FLOPPY DISK HA PRODOTTO PIÙ 
FLOPPY DISK DI QUALSIASI ALTRA 
SOCIETÀ. 



LA SOCIETÀ CHE PRODUCE QUESTO 
FLOPPY DISK ASSICURA PER I SUOI 
FLOPPY DISK UNA DURATA MEDIA DI 
30 MILIONI DI GIRI. 



LA SOCIETÀ CHE PRODUCE QUESTO 
FLOPPY DISK VENDE A PIÙ DEL 50% 
DEI PIÙ IMPORTANTI PRODUTTORI 
DI COMPUTER DEL MONDO. 



LA SOCIETÀ CHE PRODUCE QUESTO 
FLOPPY DISK È LA VERBATIM, LA 
FAMOSA SOCIETÀ SPECIALIZZATA 
NELLA PRODUZIONE DI FLOPPY DISK. 


Oggi, sembra che tutti vogliano 

ENTRARE NEL MERCATO DEI FLOPPY 
DISK. MA PER PRODURRE UN BUON 
FLOPPY DISK CI VUOLE UNA GRANDE 
ESPERIENZA CHE SOLO UNA SOCIETÀ 
SPECIALIZZATA PUÒ DARE. 

ECCO PERCHÉ OGGI LA VERBATIM 
GARANTISCE I SUOI FLOPPY DISK AL 
1 00% PER L’ASSENZA D’ERRORI 
AL MOMENTO DELLA FABBRICAZIONE. 

ECCO PERCHÉ OGGI GLI ESPERTI DI 
COMPUTER PREFERISCONO DI GRAN 
LUNGA I FLOPPY DISK VERBATIM. 

ECCO PERCHÉ OGGI LA VERBATIM È 
LA PIÙ GRANDE SPECIALISTA DI FLOPPY 
DISK DEL MONDO. 

Cl POSSONO ESSERE TANTI FLOPPY 
DISK DAL NOME FAMOSO, MA C’È UNA 
SOLA FAMOSA SOCIETÀ SPECIALIZZATA 
IN FLOPPY DISK: LA VERBATIM. 


\ferbatim. 

Leader nel tempo. 

DataLife E \ferex SONO MARCHI REGISTRATI VERBATIM 
VERBATIM ITALIA S.P.A. - VIA CERNAIA, 2 - 20121 MILANO 
TELEFONO: 65.44.31/2/3/4/5 - TELEX: 340640 VERBIT I 
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Tutti i diritti di riproduzione e tradu¬ 
zione di testi, articoli, progetti, illu¬ 
strazioni, disegni, listati di program¬ 
mi, fotografie ecc. sono riservati a ter¬ 
mini di legge. I programmi pubblicati 
su Applicando possono essere utiliz¬ 
zati per scopi privati, scientifici e dilet¬ 
tantistici, ma ne sono vietati sfrutta¬ 
menti e utilizzazioni commerciali. I 
manoscritti, i disegni e le foto, anche 
se non pubblicati, non si restitui¬ 
scono. 

Servizio abbonamenti: Editronica 
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Scrive Gaetano Guglielmi, di Roma: "Vorrei comunicar¬ 
vi il mio disappunto sul fatto che la vostra rivista riporta so¬ 
lo il software pubblicato da Nibble , rivista americana che 
trovo regolarmente in edicola e su cui trovo gli stessi listati 
di programmi che voi pubblicate, ma con qualche mese di 
anticipo rispetto alla pubblicazione sulla vostra rivista. Mi 
vorrei augurare che nel futuro la vostra rivista pubblichi an¬ 
che programmi originali italiani". 

Vorrà perdonarmi il signor Guglielmi se dissento da 
quanto mi scrive, a tal punto da trasformare l’editoriale di 
questo mese in una risposta alla sua lettera. Infatti ritengo 
che una tale visione di Applicando sia molto riduttiva e so¬ 
prattutto disconosca il lavoro spesso faticoso e sempre gra¬ 
voso di tutti i miei collaboratori, che ogni mese con profes¬ 
sionalità, entusiasmo e passione rendono possibile l’uscita 
del giornale. Ed ecco perché: 

1. Innanzitutto Applicando non è fatto esclusivamente di 
listati: per citare solo i due numeri passati, abbiamo profu¬ 
so molte energie a inchieste di copertina mai comparse in 
altre riviste, come l’articolo sulle stampanti ( Applicando 
22) e quello sulla rivoluzione portata dal personal compu¬ 
ter nell'editoria tradizionale e aziendale {Applicando 23). 

2. Esitono alcune rubriche fisse {Applipratica, Appli- 
help, Applettere) che risolvono ogni mese decine e decine 
di dubbi o problemi degli utenti Apple, che altrimenti non 
saprebbero come cavarsela. 

3. Altre rubriche fìsse {Applichi, Applicosa, MacNews) 
hanno lo scopo di informare l'utente di un Apple II o di 
un Macintosh delle novità presenti sul mercato italiano. 

4. Abbiamo pubblicato in passato, e continueremo in fu¬ 
turo a pubblicare, qualora se ne presentasse l'occasione, 
programmi interessanti realizzati da italiani {Oroscopo, 
Computer Cuisine, Trasferimento da Apple II a Mac ...). 

5.1 programmi che prendiamo da Nibble , e dei quali ab¬ 
biamo l’esclusiva per l'Italia, non solo sono tradotti in ita¬ 
liano, e quindi accessibili anche a chi non conosce l'ingle¬ 
se, ma molto spesso vengono adattati alle esigenze e alla 
realtà italiane. Per esempio, Investor è costato 6 mesi di la¬ 
voro per poter adattare un programma nato per gli investito¬ 
ri americani che operano alla Borsa di New York, in modo 
che gli investitori italiani potessero usufruirne nell'ambito 
della Borsa italiana. 

6. Nibble è reperibile in pochissime edicole specializzate 
in stampa estera, ed esclusivamente nelle grandi città come 
Roma, Milano. Inoltre viene venduto a 10.000 lire, contro 
le 6.000 di Applicando. 

Stefano Benvenuti 
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PERIODICA ITALIANA 
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attoschi r 

Se Macintosh 
fa l'architetto 

La Cooprogetto, nata 
nel 1977, è una società di 
progettazione edilizia e di 
industriai design con sede 
a Vicenza. Sono gli archi¬ 
tetti Antonio De Luca 
(socio fondatore) e Rugge¬ 
ro Marzotto (attuale Presi¬ 
dente) a spiegarci cosa è 
cambiato nella vita dello 
studio da quando, circa sei 
mesi fa, Ù Macintosh vi 
ha fatto irruzione. Natural¬ 
mente tiene la contabilità 
e gestisce corrispondenza e 
archivio clienti. Ma poi? 
C'è qualcosa di peculiare 
che un Macintosh riesce a 
fare in uno studio di pro¬ 
gettazione edilizia? 

"La prima applicazione 
che abbiamo voluto mette¬ 
re a punto è quella che con¬ 
sente di realizzare con uno 
spreadsheet i computi me¬ 
trici. Senza il computer, 
infatti, la procedura è lun¬ 
ga e noiosa e, soprattutto, 
sono altamente probabili 
laboriosi interventi di rima¬ 
neggiamento. Si tratta in¬ 
fatti di una lunghissima se¬ 
rie di calcoli successivi e 
correlati, per misurare i da¬ 
ti parziali volumetrici e di 
superimi; si deve valutare 
poi quali sono i costi dei 
vari interventi parziali che 
concorrono a definire il 
progetto finito; si passa in¬ 
fine a sommare tra loro i 
parziali. Un procedimento 
laborioso, indubbiamente, 
ma soprattutto ulteriormen¬ 
te complicato dal fatto che 
quasi sempre a computo fi¬ 
nito interviene qualche va¬ 
riazione, oppure addirittura 
si scopre di avere commes¬ 
so un errore: questo signifi¬ 
ca naturalmente ripetere 
tutte le operazioni, dato 
che sono correlate runa al¬ 
l'altra. L’utilizzo di uno 
spreadsheet, del Multiplan 
nel nostro caso, consente 
di effettuare tutti i calcoli 
con una velocità molto 
più elevata e, ciò che più 
conta, minimizza i tempi 
di correzione, poiché, se si 



va a modificare un dato, 
modifica automaticamente 
tutti gli altri che gli sono 
correlati. Il risparmio di 
tempo che ne deriva è dav¬ 
vero notevole." 

In generale, in tutte le at¬ 
tività lavorative, l'uso del 
computer è utilissimo per 
tutte le operazioni caratte¬ 
rizzate da un aspetto di ri¬ 
petitività, come si può in¬ 
tuire. Esiste un vantaggio 
di questo tipo anche nella 
vostra professione? 

"Elenchi di prezzi e capi¬ 
tolati, tanto per fare un e- 
sempio. Nella nostra pro¬ 
fessione, inoltre, succede 
spesso di svolgere delle re¬ 
lazioni tecniche talmente 
simili l'una all'altra da ren- 
dereconvenientel'archivia- 
zione di un tipo standard 
da aggiornare volta per vol¬ 
ta inserendo solo alcuni da¬ 
ti. Un esempio piuttosto 
recente è stato quello della 
documentazione necessa¬ 
ria per usufruire del condo¬ 
no edilizio: molti clienti 
avevano problemi simili, 
per esempio quello di una 
veranda non regolamen¬ 
tare." 

E la grafica? Disegnare 
con il Macintosh, progetta¬ 
re sul video, è possibile? 

"Lo sarà. Per ora c'è 
l'importantissimo capitolo 


del disegno tecnico, per il 
quale stiamo attrezzandoci: 
by-passare la fase del sotto¬ 
lucido disegnato manual¬ 
mente a china e stampare 
invece direttamente su luci¬ 
do, da plotter, con elevati 
risparmi nei tempi e nei 
costi di lavorazione. An¬ 
che per il disegno, inoltre, 
l'enorme vantaggio rappre¬ 
sentato dal computer è 
quello di poter ottenere più 
versioni di uno stesso pro¬ 
getto, magari minimamen¬ 
te varianti tra loro, senza 
dover rifare tutto. Se quin¬ 
di è necessario correggere 
un disegno, farlo sul com¬ 
puter è ovviamente conve¬ 
nientissimo." 

Archivio per l’ufficio, 
contabilità, spreadsheet, 
database tecnico, program¬ 
mi di grafica... Che altro? 

"I soci che attualmente 
compongono la Cooproget¬ 
to non sono tutti architet¬ 
ti: del gruppo fanno parte 
anche altre figure profes¬ 
sionali (tecnici delle strut¬ 
ture, degli impianti, ecc.). 
L’ingegnere Gian Maria 
Brasco, in particolare, sta 
studiando come risolvere 
al computer i problemi 
non tanto del calcolo strut¬ 
turale, quanto della restitu¬ 
zione grafica, che deve es¬ 
sere definitiva: la messa a 


punto manuale dei disegni 
esecutivi, e soprattutto l'in¬ 
troduzione di eventuali va¬ 
rianti, hanno costi notevo¬ 
lissimi e spesso richiedo¬ 
no tempi troppo lunghi ri¬ 
spetto alle esigenze di 
cantiere." 

Un Disk Jockey 
chiamato Mac 

Sono passati 11 anni da 
quando, alla sua nascita, 
nel marzo del lontano 
1975, si fece capostipite di 
una rivoluzione. Radio Mi¬ 
lano International, che tra¬ 
smette sui 101 Mhz in mo¬ 
dulazione di frequenza, è 
oggi una delle più impor¬ 
tanti radio private italiane 
e, ormai da più di un an¬ 
no, sta preparando una se¬ 
conda rivoluzione nelle e- 
mittenti radiofoniche. 


m 

RADIO MILANO 


Adesivi reclamistici 
di Radio Milano International. 
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"L'aspetto organizzativo 
di RMI sta rapidamente 
cambiando", spiega Rino 
Borra, 34 anni, direttore te¬ 
cnico della stazione. "Con 
due Macintosh 512Kb, un 
hard disk Sunol da 45Mb, 
una stampante Laser e tut¬ 
te quelle magiche periferi¬ 
che che Macintosh può 
supportare come Thunder- 
scan, i vari programmi mu¬ 
sicali e di sintesi vocali 
che vengono sfruttati gra¬ 
zie all'uscita audio della 
macchina, stiamo informa¬ 
tizzando anche le più picco¬ 
le e strane attività." 

Negli uffici di via Loca¬ 
teli a Milano una scriva¬ 
nia è dedicata a un Mac al 
quale sono collegati l'hard 
disk e la laser. L'altro Ma¬ 
cintosh con una stampante 
Image Writer è nel palazzo 
adiacente, dove si trovano 
gli studi della radio. 

"Questo è l'unico proble¬ 
ma", continua Rino Borra, 
"non avendo attualmente 
gli uffici adiacenti agli stu¬ 
di siamo impossibilitati a 
collegare le macchine in re¬ 
te con Appletalk. Tra po¬ 
co, però, occuperemo gli 
stessi uffici e le soluzioni 
applicative che già adottia¬ 
mo negli uffici si moltipli¬ 
cheranno per due." 

Di cosa si occupa attual¬ 
mente il Macintosh? 

"Il suo primo compito è 
stato ed è quello della pro¬ 
grammazione settimanale 
delle canzoni e della pub¬ 
blicità che viene poi man¬ 
data in onda automatica- 
mente da una complessa 
macchina. Inoltre gestia¬ 
mo un archivio ragionato 
dei nostri 15.000 album: u¬ 




na discoteca unica in Italia 
con pezzi veramenti intro¬ 
vabili e di grande valore. Il 
catalogo, poi, lo stamperà 
la laser senza problemi di 
tipografia. Ancora, gestia¬ 
mo il rapporto con i nostri 
ascoltatori in onde corte di 
tutto il mondo che ci han¬ 
no comunicato di ricevere 
il nostro segnale. Arrivano 
conferme da tutta l'Europa, 
dagli Stati Uniti e persino 
dall'Estremo Oriente." 

Inoltre, sono ormai pron¬ 
ti una serie di stacchi pre¬ 
parati con SmoothTalker, 
il programma di sintesi vo¬ 
cale del Macintosh: a bre¬ 
ve tempo, sarà lui il pri¬ 
mo e unico DJ di Radio 
Milano International. 

Un gran futuro 
per il software 

"Finalmente posso dire 
che il Milan è anche un 
po’ mio". Parla con orgo¬ 
glio della nuova presidenza 
della squadra di calcio ros¬ 
sonera, Alessandro Giac¬ 
chino, 30 anni, ingegnere, 
direttore marketing (Élla I- 
talware, società editrice di 
software del gruppo Finin- 
vest capitanata appunto da 
Silvio Berlusconi, nuovo 
patron del Milan A.C. 

Nata come supporto in¬ 
terno alla meccanizzazione 
e informatizzazione del 
gruppo, in pochi mesi la I- 
talware ha portato all’ester¬ 
no il know-how assimi¬ 
lato. 

"L'inizio è stato con i 
programmi della Peach- 
tree", spiega Giacchino, 
"dallaqualeabbiamo acqui¬ 
stato le sorgenti dei pro¬ 
gramma per analizzare le 
basi su cui si fonda un pro¬ 
gramma distribuito su lar¬ 
ga scala. Questo non per 
produrre programmi, non 
siamo una software house, 
ma degli editori che devo¬ 
no essere in grado di verifi¬ 
care qualitativamente i pro¬ 
dotti per garantire un vali¬ 
do supporto in termini di 
assisenza e marketing." 


"Soluzioni in pugno" è 
il vostro messaggio pub¬ 
blicitario. Che strategie di 
marketing adotta Italware? 

"Tutti i programmi da 
noi distribuiti sono tradot¬ 
ti in italiano e puntano so¬ 
prattutto a un uso più sem¬ 
plificato possibile per fa¬ 
vorire il rapporto tra uten¬ 
te e macchina. Prima cer¬ 
chiamo di capire quale pro¬ 
blema un programma può 
risolvere e come, poi lo a- 
dattiamo alle esigenze di 
un mercato così diversifica¬ 
to come il nostro. Per un'a¬ 
zienda o un professionista 
la soluzione dei problemi 
non è l'acquisto di un per¬ 
sonal, ma l'utilizzo di un 
programma che effettiva¬ 
mente sia in grado di mec¬ 
canizzare quello che prima 
si faceva a mano". 

In Italia il grosso proble¬ 
ma del settore software so¬ 
no i canali di distribuzio¬ 
ne. Di cosa vi avvalete? 

"Abbiamo cominciato 
con programmi per Ms- 
Dos avvalendoci dei con¬ 
cessionari di tali macchine 
ai quali, con i nuovi pro¬ 
dotti per Apple e per Ma¬ 
cintosh, si sono aggiunti 
gli Apple Center. La no¬ 
stra tendenza è quella di fa¬ 
re gestire a loro il rapporto 
con il cliente, comprese le 
grosse utenze. Se però c'è 
bisogno di supporto allora 
non escludiamo un nostro 
intervento." 

Che percentuale hanno i 
prodotti per Apple nel vo¬ 


stro catalogo? 

"Per ora minima. Da po¬ 
co ci stiamo muovendo in 
quest'ambito. Il primo pro¬ 
gramma per Macintosh è 
stato MacCash, per la ge¬ 
stione di cassa. In quest’an¬ 
no si sono aggiunti En- 
samble, un integrato, tut¬ 
ti i prodotti Microsoft e 
Page Maker che voi cono¬ 
scete bene. Per la serie II 
abbiamo da breve preso l’e¬ 
sclusiva di MouseCalc e di 
MouseWord, uno sprea¬ 
dsheet e un word processor 
che lavorano entrambi e- 
sclusivamente con il mou¬ 
se usando l’interfaccia uten¬ 
te del Macintosh." 

Che problemi avete con 
la cosiddetta pirateria del 
software ? 

"Ho qui sulla mia scriva¬ 
nia due elenchi "pirati" che 
propongono programmi 
con i Telativi manuali a 
prezzi notevolmente infe¬ 
riori agli originali. Questo 
dimostra come chiunque 
può arricchirsi sulle spalle 
degli altri. Non ci interes¬ 
sa il privato che fa la co¬ 
pia da un altro privato: 
quella persona non compre¬ 
rà mai il programma origi¬ 
nale. Sono i signori che ri¬ 
vendono il software con il 
relativo manuale che ci 
danneggiano. Speriamo 
che gli sforzi dell’ASSO- 
FT, di cui noi facciamo 
parte, riescano in breve a 
produrre una legislazione a - 
deguata alla soluzione del 
problema." 
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Mac// 

Un emulatore software di 
Apple//+ e Apple//e per 
Macintosh 512: basta 
inserire il dischetto Mac// in 
un Macintosh, ed eccolo 
trasformato in un Apple//. 
Con il Dos e il ProDos. 



è un programma JRD 
edito in Italia 
da Editronica Srl. 

Acquistalo subito. 


l s*’' 0 ' 

A° - 


Per ricevere Mac// basta compilare 
e spedire subito questo 
tagliando a Editronica Srl, 

Corso Monforte 39, 20122 Milano. 
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Quanto costa 
essere Plus 

Il mese scorso Applican¬ 
do ha presentato tutte le 
novità annunciate dalla Ap¬ 
ple durante la Word Confe- 
rence di San Francisco, 
senza però fornire il listi¬ 
no prezzi per il mercato ita¬ 
liano, non ancora reso no¬ 
to. Eccolo adesso. 

Il nuovo Macintosh 
Plus con capacità e veloci¬ 
tà raddoppiate, con il drive 
interno da 800K, la nuova 
tastiera e la porta SCSI, 
costerà 5.590.350 lire, po¬ 
co più del vecchio prezzo 
del Macintosh 512K, che 
scenderà invece a 
4.890.350 lire. Una delu¬ 
sione, questa, per chi pos¬ 
siede una versione prece¬ 
dente? Assolutamente no: 
la Apple Computer non ab¬ 
bandona gli utenti del 
512K o del 128K, i quali 
potranno aggiornare a con¬ 
dizioni eccezionali il loro 
personal. 

Per loro, due soluzioni 
possibili, in "offerta spe¬ 
ciale": sostituire solo il dri¬ 
ve interno e la ROM, op¬ 
pure scegliere la traforma¬ 
zione completa aggiungen¬ 
do la memoria centrale da 
1 Megabyte (espandibile fi¬ 
no a 4 MB) e un nuovo 


pannello posteriore con la 
porta SCSI. Queste due so¬ 
luzioni costerebbero rispet¬ 
tivamente 500 mila lire e 
1.500.000 lire (per il 
512K) o 1.900.000 lire 
(per il 128K), più la spesa 
per la sostituzione della ta¬ 
stiera, il cui prezzo è di 
260.000 lire; la Apple ha 
deciso però di offrire fino 
al primo maggio 1986 tut¬ 
ti i kit di aggiornamento 
con una riduzione del 50% 
a tutti i possessori di un 
Mac 128K o 512K, indi¬ 
pendentemente dalla data di 
acquisto: la trasformazione 
solo drive più ROM coste¬ 
rà 250.000, mentre quella 
completa 750.000 e 
950.000 rispettivamente 
per Macintosh 512K e 
128 K. 

Ci sono interessanti no¬ 
vità anche per quanto ri¬ 
guarda la famiglia De e Ile: 
tutti i nuovi acquirenti tro¬ 
veranno il personal correda¬ 
to di mouse e di Mouse-de¬ 
sk, il software che offre an¬ 
che agli utenti di Apple II 
l'interfaccia che ha reso fa¬ 
moso Macintosh. Il siste¬ 
ma di base per il Ile si ar¬ 
ricchirà anche della scheda 
di espansione per gestire 
lo schermo a 80 colonne e 
per portare' la memoria a 
128K. Tutto questo senza 
alcuna variazione di prez¬ 


zo. Sono stati ridotti inol¬ 
tre i prezzi di alcune perife¬ 
riche per la linea II: il mo¬ 
nitor per Ile e quello per 
Ile costeranno 250.000 li¬ 
re, l'unità disco esterna per 
Ile 500.000 lire, l’unidisk 
da 3.5 pollici (800K) 
850.000 lire e l’ImageWri- 
ter II 1.200.000 lire. Tutti 
i prezzi citati non sono 
comprensivi di Iva. 

LaserWriter 
dei miracoli 

Nell' articolo sulle stam¬ 
panti apparso sul numero 
di Dicembre/Gennaio di 
Applicando , si è detto che 
le stampanti laser sfrutta¬ 
no quasi sempre le mecca¬ 
niche e i gruppi di stampa 
di fotocopiatori che utiliz¬ 
zano questa tecnologia. 
Perché allora non utilizza¬ 
re anche nella LaserWriter 
della Apple tutta la serie 
di supporti di stampa di¬ 
sponibili per i fotocopia¬ 
tori? 

La Folex (Via Edison 
40, Trezzano sul Naviglio, 
MI, tei. 02 4459812) è u- 
na società specializzata nel¬ 
la produzione di supporti 
di stampa per fotocopiatoli 
di tutte le marche: nel suo 
interessante catalogo si tro¬ 
va una miriade di prodotti 



I nuovi gioielli di Cupertino: Macintosh Plus e LaserWriter Plus. 


che consentono di fare mi¬ 
racoli con la LaserWriter. 
Qualche esempio: carta au¬ 
toadesiva sia pretagliata in 
etichette sia a foglio uni¬ 
co, film trasparenti nei co¬ 
lori neutro, azzurro, verde, 
arancio e giallo, supporti 
in poliestere trasparente a- 
desivo, film spellicolabile 
nei colori verde, rosso, 
blu, giallo e bianco opaco. 
Con questi prodotti presen¬ 
tazioni e relazioni potran¬ 
no finalmente avere quello 
che finora la LaserWriter 
non è stata in grado di da¬ 
re: il colore. 



Imparare con 
Phot line 


L'Istituto Gamma di 
Monza promuove il primo 
corso autodidattico "hot li¬ 
ne" su personal computer. 
Si tratta di un corso rivol¬ 
to a tutti coloro che abbia¬ 
no acquistato o intendano 
acquistare un personal: ma¬ 
nager, professionisti, do¬ 
centi, operatori d’ufficio 
eccetera e che vogliano co¬ 
noscerlo in tutti gli aspet¬ 
ti, le funzioni e le applica¬ 
zioni attraverso un procedi¬ 
mento autodidattico e sem¬ 
plificato. E' un corso prati¬ 
co per l'apprendimento pro¬ 
gressivo e graduale finaliz¬ 
zato all'uso, dove la presen¬ 
za di immagini e di sche¬ 
mi illustrativi fa da suppor¬ 
to a un metodo basato sul 
principio dell'apprendi¬ 
mento naturale e immedia¬ 
to attraverso esercizi "han- 
ds on". Il corso, previsto 
per computer Apple Ile, I- 
BM PC e Olivetti M24, si 
avvale del supporto di un 
testo unico nel suo genere, 
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realizzato da un'équipe di 
insegnanti altamente quali¬ 
ficati, specialisti nel cam¬ 
po delle comunicazioni, e 
di una consulenza telefoni¬ 
ca gratuita "hot line Servi¬ 
ce" che permette all'acqui¬ 
rente di risolvere i propri 
problemi in qualunque mo¬ 
mento e ovunque si trovi, 
usufruendo di un'equipe di 
esperti a sua disposizione 
per 6 mesi a partire dalla 
data di acquisto. 

Il primo capitolo del te¬ 
sto, introduzione alla teo¬ 
ria, racchiude in sé tutte le 
nozioni indispensabili per 
accostarsi a un personal 
computer. I capitoli com¬ 
presi tra il secondo e il se¬ 
sto trattano i seguenti argo¬ 
menti: wordprocessing, da¬ 
ta base, spread sheet, conta¬ 
bilità, grafica e integrati, 
telematica, ciascuno dei 
quali diviso in tre parti: 
teoria, esercizi e test. Il set¬ 
timo capitolo è un glossa¬ 
rio che chiarisce tutti i ter¬ 
mini tecnici utilizzati nel¬ 
le altre parti del testo. In 
seguito il testo verrà inte¬ 
grato da unità didattiche ag¬ 
giuntive relative ai mag¬ 
giori pacchetti applicativi 
in circolazione fra cui: Ea¬ 
sy writer, Wordstar, Dba- 
se III, Multiplan, Lotus 1- 
2-3, Master contabilità e 
molti altri. Acquistando il 
libro, in vendita nelle mi¬ 
gliori librerie al prezzo di 
57.000 lire, compilando la 
cartolina allegata e speden¬ 
dola all'istituto Gamma si 
avrà diritto gratuitamente 
al codice di accesso per u- 
sufruire del servizio "hot li¬ 
ne". Per ulteriori informa¬ 
zioni rivolgersi a Istituto 
Gamma, Via Carlo alberto 
1, 20052 Monza, Tel. 
039/364930. 

Archiviare 
con cartuccia 

Un supporto innovativo 
per l'archiviazione di infor¬ 
mazioni su memorie di 
massa? Finora riservati a e¬ 



laboratori come IBM PC, 
XT, COMPAQ, Colum¬ 
bia e Sperry, da oggi sono 
a disposizione anche di Ma¬ 
cintosh i benefici del Ber- 
noulli Box, un sistema di 
memorizzazione alternati¬ 
vo e più pratico dei dischi 
rigidi tradizionali. 

Il segreto della sua po¬ 
tenza sta nella combina¬ 
zione tra le prestazioni 
standardoffertedallatecno- 
logia Winchester e il bas¬ 
so costo e la trasportabili¬ 
tà offerte dai floppy disk. 
Il risultato è un sistema af¬ 
fidabile come un hard disk, 
che consente tuttavia di tra¬ 
sportare facilmente 5 Me¬ 
gabyte di informazioni 
semplicemente con una car¬ 
tuccia. Questo evita la per¬ 
dita di tempo, la scomodi¬ 
tà e la precarietà di un ba- 
ckup su dischi da 3.5 polli¬ 
ci (ne occorrerebbero 13 da 
400K e 7 da 800K). Que¬ 
ste cartucce, il cuore del 
box di Bemoulli, lo rendo¬ 
no estremamente versatile. 


Il Bernoulli Box per la memo¬ 
rizzazione con cartucce. 


Sono infatti resistenti al¬ 
le sollecitazioni e compat¬ 
te nella struttura; offrono 
quindi una sicurezza e una 
praticitàidealiper mantene¬ 
re grosse quantità di infor¬ 
mazioni senza una partico¬ 
lare cura o manutenzione, 
a un costo per Megabyte 
inferiore a qualsiasi altro 
sistema di archiviazione. Il 
sistema si presenta come u¬ 


na scatola di 130 x 273 x 
318 mm con cartucce di 
13.5 x 138 x 188 mm, la¬ 
vora a una temperatura 
compresa tra i 15 e i 32 
gradi centigradi, dispone di 
5 Mb formattati con un 
accesso medio di 50 ms. 

Il prezzo del Bemoulli 
Box è di 5.900.000 lire 
più Iva, mentre una confe¬ 
zione da tre cartucce da 5 
Mb costa 400.000 lire, 
sempre Iva esclusa. Per 
maggiori informazioni ri¬ 
volgersi a Telcom, Via Ci- 
vitali 75, 20148 Milano, 
Tel. 02/4049046. 


Lettura ottica? 
Sì, e intelligente 

Per oltre dieci anni i let¬ 
tori ottici per il riconosci¬ 
mento dei caratteri sono 
stati largamente impiegati 
per immettere automatica- 
mente i testi nei sistemi 
computerizzati. Finora pe¬ 
rò gli OCR (riconoscitori 




In queste videate, due momenti del lavoro con iKurzweil 4000. 
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ottici di caratteri) tradizio¬ 
nali non sono stati in gra¬ 
do di superare il limite che 
consente loro di riconosce¬ 
re soltanto pochi tipi di ca¬ 
ratteri e di formato pagina. 
I testi proporzionalmente 
spaziati (che comprendono 
tutti i tipi tipografici) e i 
testi dattiloscritti da diver¬ 
se macchine per scrivere 
sono tuttora indecifrabili 
da questi sistemi. 

La conseguenza di tutto 
questo è che i sistemi con¬ 
venzionali hanno avuto so¬ 
lo un'utilizzazione margi¬ 
nale nella conversione dei 
documenti esistenti in for¬ 
ma digitale. Con Kurzweil 
4000 questi problemi sono 
risolti grazie alla combina¬ 
zione di due processi: intel¬ 
ligenza artificiale e capaci¬ 
tà ottiche di scansione. 

Il risultato è ICR: Intel- 
ligent Character Recogni- 
tion (riconoscimento intel¬ 
ligente dei caratteri). Con I- 
CR Fimmissione del testo 
avviene a una velocità fino 
a 40 volte superiore a quel¬ 
la di un operatore alla ta¬ 
stiera. 

Inoltre la tecnologia I- 
CR, inventata negli anni 
Settanta dalla Kurzweil, so¬ 
cietà del gruppo Xerox, 
comporta con l'introduzio¬ 
ne del sistema 4000 una ri¬ 
duzione del costo di oltre 
il 50% rispetto agli OCR 
tradizionali, che la rende 
quindi così accessibile a u- 
na più vasta gamma di 
nuovi utenti. 

Con il sistema 4000 pic¬ 
cole lito-tipografie, azien¬ 
de di fotocomposizione e 
centri stampa possono ac¬ 
cedere aH’ICR per ridurre i 
costi dell'input di comples¬ 
si documenti. 

Le aziende fornitrici di 
informazioni nel campo e- 
ditoriale hanno preso seria¬ 
mente in considerazione il 
costo che comporta il text 
entry: con lo sviluppo di 
informazioni specializzate 
e servizi di banche dati, il 
tempo è divenuto il fattore 
più critico nella gestione 



delle informazioni e Kur¬ 
zweil 4000 è uno strumen¬ 
to in grado di stare al pas¬ 
so con le necessità. Opera¬ 
tivamente il sistema è sta¬ 
to studiato per essere sem¬ 
plice e immediato. La sta¬ 
zione di lavoro, studiata er¬ 
gonomicamente, compren¬ 
de uno schermo regolabile 
che riduce l'affaticamento 
della vista e quindi aumen¬ 
ta la produttività. 

L’avvio del sistema è ve¬ 
loce poiché il 4000 legge 
le prima righe di un nuovo 
documento e subito dopo, 
interattivamente con l'ope¬ 
ratore, stabilisce le modali¬ 
tà d'interpretazione dei ca¬ 
ratteri specifici di quel do¬ 
cumento. Quando vi sono 
caratteri rovinati, testo 
non chiaro, o altri proble¬ 
mi che non permettono un 
sicuro ricoscimento, il si¬ 
stema avverte l'operatore, 
mostrando una versione in¬ 
grandita del carattere, che 
necessita di assistenza e ri¬ 
chiede una decisione per l’i¬ 
dentificazione. 

Disponendo di un testo 
ragionevolmente chiaro 
questo processo di istruzio¬ 
ne viene completato in po¬ 
chi minuti, dopo di che ini¬ 
zia il processo di lettura. 
Durante la fase di lettura 
l'intervento da parte dell’o¬ 
peratore è meno frequente 
e nella maggior parte dei 
casi consiste esclusivamen¬ 
te nel guidare il sistema 
per leggere le colonne di te¬ 
sto o altre forme grafiche. 
Oltre a ricoscere il norma¬ 
le testo, infatti, il 4000 ri¬ 
conosce una vasta gamma 
di simboli matematici e 
scientifici come format di 
word processor e fotocom¬ 
positrici e codici di font, 
fra cui più font all'intemo 
dello stesso documento. 
Numerose funzioni consen¬ 
tono di identificare e codifi¬ 
care cambiamenti di font, 
di iniziare a leggere da sini¬ 
stra o da destra, di distin¬ 
guere carattere di apertura e 
chiusura, come le virgolet¬ 
te, i trattini di sillabicazio- 


ne e gli spazi orizzontali e 
verticali. Dimostrazioni 
pratiche dell’ICR Kurzweil 
4000 possono essere richie¬ 
ste in qualsiasi momento 
presso gli uffici NTG di 
Milano e di Roma. Per ul¬ 
teriori informazioni rivol¬ 
gersi a NTG, Via dell'Orso 
20, 20122 Milano, Tel. 
02/879359. 

Un controllo 
tutto industriale 

Viene presentato in que¬ 
sti giorni al Bias, allo 
stand Deco Instruments, 
un nuovo package destina¬ 
to al controllo industriale, 
settore nel quale l'impiego 
di personal computer è 
sempre più diffuso. Parten¬ 
do dal concetto che un ela¬ 
boratore dotato di interfac¬ 
ce ingresso/uscita per se¬ 
gnali digitali e analogici 
può benissimo eseguire 
quanto previsto da un 
P.L.C. (Programmable Lo¬ 
gic Control) relativamente 
a sequenze logiche, con¬ 
teggi, temporizzazioni, la 
Deltron ha sviluppato Pla- 
tLink, un programma che 
permette appunto l'emula¬ 
zione di un P.L.C., conte¬ 
nendo i costi e ottenendo 
nello stesso tempo le me¬ 
desime funzioni. 

Inoltre, la possibilità di 
utilizzare una memoria di 
massa come il dischetto 


consente di preparare una 
serie di programmi di utili¬ 
tà per lo sviluppo, renden¬ 
do in tal modo amichevole 
l'edizione e la stampa di 
un programma P.L.C. e il 
suo collaudo fuori linea e 
in linea. Ogni unità Pla- 
tLink supporta fino a 64 
ingressi e altrettante uscite 
digitali, 16 ingressi analo¬ 
gici e un'uscita analogica. 
Le schede di I/U digitale 
sono anche optoisolate e o- 
gnuna prevede fino a 32 se¬ 
gnali. E' prodotto dalla 
Deltron, viale Gran Sasso 
50, Milano, telefono 
02/2360015, dove è possi¬ 
bile rivolgersi per ulteriori 
informazioni. 

E' In arrivo 
un linguaggio 

A metà tra educativo e 
professionale, a metà tra 
Pascal e Prodos, il Kyan 
Pascal è una nuova imple¬ 
mentazione del linguaggio 
inventato da Niklaus e Wir- 
th negli ormai lontani an¬ 
ni Sessanta all'Università 
di Zurigo. Può essere uti¬ 
lizzato su un Apple II con 
almeno 64K di memoria 
ed è uno strumento di pro¬ 
grammazione potente che 
però tiene sempre conto an¬ 
che delle difficoltà che può 
incontrare un principiante. 
Infatti, i comandi sono rag¬ 
gruppati in menù per sem- 
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piificame l'uso, i menù di 
aiuto sono facili ma com¬ 
pleti e i messaggi di errore 
provvedono a specifiche 
descrizioni e a mostrare il 
punto del programma in 
cui si trovano quando vie¬ 
ne fatta la compilazione. 

A queste caratteristiche 
di apprendimento, Kyan 
Pascal affianca caratteristi¬ 
che professionali per chi 
ha bisogno di un valido 
linguaggio di programma¬ 
zione. Da sottolineare, tra 
le altre, la possibilità di 
sviluppare programmi in 
ambiente ProDOS. 

Kyan Pascal comprende 
il sistema operativo e un 
compilatore in codice mac¬ 
china 6502 che genera un 
codice ottimizzato, che la¬ 
vora con una velocità me¬ 
dia superiore di 30 volte a 
quella del Basic. 

Kyan Pascal è distribui¬ 
to dalla Pps, Personal Pa¬ 
scal Software, V.le Martiri 
della Libertà 72, Lissone, 
Milano, telefono 039- 
461362. Il prezzo di vendi¬ 
ta suggerito è di lire 340 
mila. 


Nuovi dischi 
dagli USA 

E' disponibile una nuo¬ 
va linea di dischetti, distri¬ 
buiti dalla Sedagraf, esclu¬ 
sivista per l'Italia degli ac¬ 
cessori per computer della 
società americana Micro- 
Computer Accessories. 
Battezzati HID, High In tei- 



High InttìlfigenGG Devicv. 


ligence Device, sono per il 
momento disponibili nei 
5,25" nelle versioni singo¬ 
la faccia/doppia densità, 
doppiafaccia/doppiadensi- 
tà e alta densità. Il prezzo 
è di lire 4 mila per i singo¬ 
la faccia. Per ulteriori in¬ 
formazioni: Sedagraf, Lar¬ 
go Re Umberto 106, Tori¬ 
no. Telefono 011/582343. 

Basterà 
una linea 

"E' questa un'ulteriore 
conferma dell'impegno di 
integrazione con la tecnolo¬ 
gia Macintosh". Così Wil¬ 
liam V. Campbell, vice 
presidente per le vendite e 
il marketing della Apple, 
ha commentato il nuovo 


accordo annunciato in occa¬ 
sione della Apple Word 
Conference di San Franci¬ 
sco; in base a questo accor¬ 
do la Northern Telecom 
renderà possibile ai perso¬ 
nal computer Macintosh il 
collegamento in rete attra¬ 
verso sue linee telefoni¬ 
che, grazie a dispositivi 
PBX (Private Branch E- 
xchange). 

Gli utenti Macintosh po¬ 
tranno così dialogare usu¬ 
fruendo di linee telefoniche 
normali senza essere co¬ 
stretti all’installazione di 
costose linee dedicate. 

Senza contare che sarà 
possibile sfruttare più am¬ 
pie funzioni di rete conside¬ 
rando le oltre 17 mila in¬ 
stallazioni equipaggiate 
con PBX. 


Caratteristiche Kyan Pascal 

Apple Pascal 

Turbo Pascal 

Editor di testo a tutto schermo 

sì 

sì 

sì 

Compilatore in codice macchina 

sì 

no 

sì 

Necessità S.O. Cp/m 

no 

no 

sì 

Assembler interno 

si 

sì 

no 

Sistema operativo ProDOS 

si 

no 

no 

Precisione in virgola mobile 

13 cifre 

7 cifre 

7 cifre 

Velocità di esecuzione 

4x 

1 X 

2x 


Le principali caratteristiche dei più diffusi linguaggi Pascal per Apple II. 


Tutto quanto 
fa accessorio 

Potrebbe essere lo slo¬ 
gan della Tecnocentro, so¬ 
cietà che fa della sua attivi¬ 
tà l'assistenza in termini di 
supporti al mondo edp. 
Punta di diamante della 
produzione sono i dischet¬ 
ti G.M.C., disponibili nel¬ 
le versioni da 5 pollici, 
singolaedoppiafaccia/dop- 
pia densità che raggiungo¬ 
no una produzione mensile 
di 60 mila pezzi per il mer¬ 
cato nazionale. 

Nella linea Computer 
Accessories è possibile tro¬ 
vare tutto quanto può servi¬ 
re a una perfetta pulizia del¬ 
le macchine. Oltre agli ac¬ 
cessori dedicati alla pulizia 
di drive, monitor, tastiera 
e tutto quanto è elettrostati¬ 
co, spicca un prodotto bat¬ 
tezzato Antireflex. 

Si tratta di uno spray da 
spargere sul monitor, che 
attenua i dannosi riflessi 
che chiunque lavori più o- 
re a un terminale conosce. 
Una confezione riesce a co¬ 
prire fino a tre schermi e 
costa all'incirca 13/15mila 
lire. Last but non least re¬ 
legante contenitore per di¬ 
schetti, visibile nella foto¬ 
grafia qui sopra; ha una ca¬ 
pacità di 80 pezzi e costa 
26 mila lire. 

Per ulteriori informazio¬ 
ni, anche su altri prodotti: 
Tecnocentro, via Mac Ma- 
hon 50, Milano. Telefono 
02/3492063. 

Nuove stampanti 
per Macintosh 

La C.ITOH ha presenta¬ 
to 4 nuove stampanti grafi¬ 
che particolarmente studia¬ 
te per l'utilizzo con Macin¬ 
tosh. Le sigle di queste 
stampanti, M-8510 BC2, 
M-8510 SR+, M-1550 
BC2, M-1550 SR+, identi¬ 
ficano rispettivamente i 
modelli con carrello da 8 
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Chart 

“Grafici spettacolari'’ 
Grafica gestionale 


Excel 

“La soluzione 

Foglio elettronico 
Grafica gestionale 
Data base 


Multiplan 

“Calcoli più facili’’ 
Foglio elettronico 




“Il linguaggio di base’’ 

Con tutti i vantaggi del Macintosh 


Basic 


Microsoft orch 



tra Macintosh 


Word 


“Parole più chiare” 
Elaborazione di testi 


'Archivi più accessibili 
Gestione data base 


Calcolate. Scrivete. Disegnate. Classificate. Ricercate. Programmate 

Il software Microsoft orchestra tutte le possibilità del vostro j 
Macintosh. 

Ciascun programma, nella sua specializzazione particolare, utilizza 
a fondo le “finestre” ed il mouse, è rapido, potente e semplice da 
usare. 

In più, conoscendo un programma, immediatamente potrete 
servirvi di tutti gli altri: gli stessi comandi di base, la stessa 
impostazione. 

Realizzati per lavorare insieme, affidabili fin nei minimi dettagli, i 
programmi Microsoft trasformano Macintosh in un grande strumento 
professionale. 

Excel, Word, Multiplan e Chart sono disponibili in italiano. 
Informazioni e dimostrazioni presso tutti gli Apple Centers ed i 
Distributori Autorizzati Microsoft. | 


Fortran 

“Il linguaggio scientifico” 
Ora anche per Macintosh 


Potenza e semplicità. Insieme. 
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L'elegante contenitore per dischetti da 5 pollici e un quarto 
della Tecnocentro. 


pollici (M-8510, corrispon¬ 
denti a 80 colonne) e i mo¬ 
delli da 13.6 pollici (M- 
1550, corrispondenti a 132 
colonne). 

ImageWriter compatibi¬ 
li, queste stampanti per¬ 
mettono la stampa di qual¬ 
siasi documento Macinto¬ 
sh senza alcuna modifica 
alla cartella di sistema con¬ 
tenente l’icona di stampa I- 
mageWriter. 

Le sigle BC2 e SR+ i- 
dentificano le due velocità 
disponibili che permettono 
di stampare in alta defini¬ 
zione o definizione stan¬ 
dard rispettivamente a 70 
righe al minuto oppure a 
100 righe al minuto (su 
carta con larghezza di 8 
pollici). 

La carta utilizzata può 
essere sia a modulo conti¬ 
nuo che a foglio singolo. 
Queste stampanti consento¬ 
no anche l'uso di carta chi¬ 
mica per copie multiple fi¬ 
no a un massimo di 3 fo¬ 
gli oltre l'originale. 

Le stampanti C.ITOH 
sono importate in Italia 
dalla società Adelsy, Via 
Novara 570, Milano, Tel. 
02/3580641. 

I prezzi al pubblico, non 
comprensivi di Iva, sono i 
seguenti: M-8510 BC2 
lire 1.285.000; M-8510 

SR+ lire 1.600.000; M- 
1550 BC2 lire 1.750.000; 
M-1550 SR+ lire 
1.880.000. 


Microsoft Word 
parla italiano 

E’ finalmente disponibi¬ 
le la versione 1.15 in ita¬ 
liano del famoso program¬ 
ma di word processing per 
Macintosh Microsoft Wor- 
d. MWord può essere uti¬ 
lizzato per ogni necessità 
di scrittura, sempre con ri¬ 
sultati di qualità professio¬ 
nale. Finestre multiple, 
glossario, numerazione au¬ 
tomatica delle note, possi¬ 
bilità di supportare una 
grande varietà di stampanti 
e una grande facilità d'uso 
rendono MWord il sistema 
più semplice ed efficace 
per l'elaborazione testi. 

MWord in italiano costa 
538.000 lire più iva ed è 
disponibile presso ogni 
Apple Center. 

Apple si 
aggiusta così 

Come già annunciato 
sul numero 20 di Applican¬ 
do 20 (pag. 12) dal 1 gen¬ 
naio '86 è disponibile an¬ 
che in Italia il servizio di 
assistenza tecnica sui pro¬ 
dotti Apple curato dalla 
Honeywell, sia nella ver¬ 
sione on-site (presso il 
cliente) che nella versione 
walk-in (presso il centro di 
assistenza). Sono diverse, 


ormai, le città italiane nel¬ 
le quali il servizio è stato 
attivato. 

Il servizio on-site si 
estende a Milano e hinter¬ 
land (comprese le città di 
Como, Varese e dintorni), 
Roma (circoscritto al Gran¬ 
de Raccordo Anulare), To¬ 
rino e hinterland. Inoltre 
queste tre città hanno un 
Service Center presso il 
quale si può portare il pro¬ 
prio computer a riparare 
(servizio walk-in): questi 
Service Center sono aperti 
anche ai clienti di altre pro¬ 
vince non ancora servite 
dal servizio on-site. Inoltre 
il Service Center è aperto 
anche a tutti coloro che 
non vogliano sottoscrivere 
un contratto annuale di as¬ 
sistenza e che quindi paghe¬ 
ranno di volta in volta il 
puro costo della riparazio¬ 
ne. Il costo del contratto 
dipende da situazione a si¬ 
tuazione: vediamone due e- 
sempi, per due delle appa¬ 
recchiature più diffuse, il 
Macintosh e l'ImageWri- 
ter, considerando in se¬ 
quenza i prezzi di: 1) con¬ 
tratto per servizio on-site 
con macchina ancora in ga¬ 
ranzia Apple (primo anno 
dall'acquisto); 2) contratto 
per servizio on-site con 
macchina non in garanzia; 
3) contratto per servizio 
walk-in con macchine non 
in garanzia (le macchine 
ancora in garanzia usufrui¬ 


scono di servizio gratuito 
presso i Service Center). I 
prezzi, tratti dal listino 
del 10 gennaio 86, non so¬ 
no comprensivi di Iva. 
Macintosh 512K: 1) lire 
250.000; 2) lire 790.000; 
3) lire 430.000. 
ImageWriter: 1) lire 

100.000; 2) lire 150.000; 
3) lire 100.000. 

Per coloro che sono inte¬ 
ressati, questi sono i nume¬ 
ri di telefono dei centri Ho¬ 
neywell presso i quali ri- 
chiedereinformazionidetta- 
gliate: 

Milano: 02/2871181 

Roma: 06/7312241 

Torino: 011/506655 

Il 2000 ha la 
memoria lunga 

Si allunga la catena dei 
prodotti Hyperdrive distri¬ 
buiti in Italia dalla Ma- 
ctronics. In testa il nuovo 
modello Hyperdrive 2000, 
estensione dei precedenti 
dischi fissi interni per Ma¬ 
cintosh. Il nuovo prodotto 
riunisce un insieme di ca¬ 
ratteristiche innovative per 
chi necessita di memoria. 
Capace di archiviare fino a 
20Mb, Hyperdrive 2000 
riesce nello stesso tempo a 
espandere la memoria Ram 
fino a 1,5Mb, a sostituire 
il microprocessore proprio 
del Macintosh (disattivan¬ 
dolo con una specie di pin- 



Una videata della nuova versione in Italiano di MicosoftWord. 
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za) con una nuova Cpu, 
sempre 68000 ma funzio¬ 
nante a 12 megahertz, rad¬ 
doppiando così la velocità 
della macchina. 

Inoltre, viene affiancato 
un co-processore numeri¬ 
co, 68881, che, sfruttato a 
dovere dal software utiliz¬ 
zato, aumenta ancora la ve¬ 
locità di lavoro. A questo 
proposito la Microsoft ha 
annunciato una prossima 
versione di Excel che pre¬ 
vede l'utilizzo di questo mi¬ 
croprocessore. Novità an¬ 
che per il collegamento in 
rete AppleTalk dei prodotti 
Hyperdrive. Grazie al so¬ 
ftware Hypemet, un qual¬ 
siasi Macintosh in una re¬ 
te può utilzzare un hard di¬ 
sk Hyperdrive installato su 
un qualunque altro Macin¬ 
tosh della stessa rete. 


I due nuovi prodotti sa¬ 
ranno disponibili sul mer¬ 
cato nazionale nella versio¬ 
ne italiana a partire dal me¬ 
se di maggio. La Apple ha 
inoltre dichiarato che agli 
utenti che utilizzeranno 
Hyperdrive non decadrà la 
garanzia. L’Hyperdrive 
2000 costerà 6,8 milioni I- 
va esclusa, che comprendo¬ 
no il disco fisso, il co-pro¬ 
cessore, l'espansione della 
Ram e un alimentatore ag¬ 
giuntivo. Per i già posses¬ 
sori di hard disk Hyperdri¬ 
ve da 10 o 20 Mb l'upgra- 
de costerà invece 4 milio¬ 
ni Iva esclusa. 

Hypemet ha un prezzo 
di listino di 800 mila lire I- 
va esclusa. Distributore 
per l’Italia è la Mactronics, 
viale Jenner 40/a, Milano, 
Telefono 02/6882141. 


Un hard disk 
dentro il Ile 

' Si tratta di un disco rigi¬ 
do completamente interno 
per Apple Ile. Il sistema 
comprende il drive, il con¬ 
troller, l'alimentatore, i ca¬ 
vi relativi, il software che 
lo gestisce e il manuale 
d’uso. L’istallazione è mol¬ 
to semplice, infatti l'inter¬ 
faccia occupa solo una del¬ 
le slot disponibili, lascian¬ 
do le restanti completamen¬ 
te libere per altre applica¬ 
zioni. Si prefigura come 
un drive già formattato in 
sistema ProDOS con 16 
Mb e in DOS 3.3 con 2 
Mb, ma supporta anche 
l'UCSD Pascal e il CP/M. 
Essendo interno non in¬ 
gombra il piano di lavoro 


e grazie alla grande resi¬ 
stenza agli urti risulta facil¬ 
mente portatile. L'alimen¬ 
tazione sovradimensionata 
di cui dispone consente di 
mantenere oltre a se stesso 
anche tutti gli accessori, 
come l'espansione di 
RAM, co-processori, ecce¬ 
tera. E' compatibile con 
le reti SCS SpaceServer, 
con SpaceStreamer backup 
e con la tecnologia Whin- 
chester. E’ disponibile nel¬ 
la versione da 10 Mb (1 di¬ 
sco) o da 20 Mb (2 di¬ 
schi), entrambi con un 
tempo di accesso medio di 
66 ms. 

Per ulteriori informazio¬ 
ni rivolgersi a Space Coa- 
st System, Ine. 301 S. Wa¬ 
shington Avenue Titusvil- 
le, Florida USA, Tel. 
001/305/2680872. 



Sopra un primo piano del Challanger e dell'Interfaccia. 

A destra il Challanger inserito con l'interfaccia nella slot 7. 
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ARCHIVIO 



Un sistema di archiviazione veramente nuovo e molto interessante: 
unisce alla duttilità di uno schedario i vantaggi elettronici 
della facilità d'introduzione e di modifica dei dati, del rapido 
ordinamento e della memorizzazione su dischetto. 

Ogni scheda può contenere quasi 500 caratteri, e gli schedari 
possono comprendere 35 schede in ognuna delle sette sezioni. 


Tutti i dati sulle 
schede intelligenti 


Schedario è un programma che si¬ 
mula un semplice metodo di imma¬ 
gazzinamento dei dati, lo schedario 
appunto, aggiornandolo però con 
raggiunta di capacità e di opzioni. 
Il vantaggio precipuo di un sistema 
a schede è la sua flessibilità: i dati 
possono essere introdotti e organizza¬ 
ti praticamente in qualsiasi modo. 
Ed è inoltre un sistema naturale da u- 
sare, anche per chi è digiuno di infor¬ 
matica. 

Il programma è destinato soprattut¬ 
to all'impiego in un piccolo nucleo 
familiare o all'uso personale. Ogni 
schedario del sistema può contenere 
fino a sette sezioni, delimitate da di¬ 
visori. Airintemo di ogni sezione 


possono essere immagazzinate ben 
35 schede, ciascuna con un massimo 
di 13 righe di 38 caratteri. Una volta 
archiviate, le schede possono essere 
visualizzate, modificate, ordinate, ri¬ 
mosse o riversate su una stampante. 
L'introduzione del testo in caratteri 
minuscoli è supportata in tutti gli 
Apple ed è indicata con il carattere 
inverso in quelli privi di visualizza¬ 
zione in minuscolo. Il programma è 
completamente pilotato da menù, 
con espliciti prompt strutturati per 
un facile impiego. Il tasto <ESC> 
fa sempre tornare da un menù al me¬ 
nù precedente. 

Quando viene chiesto un numero 
o un nome <CTRL>C fa tornare al 


menù principale. In questa seduta e- 
semplificativa utilizzeremo il pro¬ 
gramma per tener nota della nostra 
attrezzatura di computer. Dedichere¬ 
mo una scheda a ogni articolo. Le 
schede conterranno informazioni co¬ 
me numero di serie, luogo e data del¬ 
l'acquisto, prezzo d'acquisto e descri¬ 
zione dell’oggetto. Il nostro scheda¬ 
rio informatico sarà diviso in tre se¬ 
zioni: hardware, software e altro. 

File indice 
e menù principale 

Il file indice non è altro che un fi¬ 
le di housekeeping utilizzato dal pro¬ 
gramma per tener nota degli schedari 
memorizzati su un determinato di¬ 
schetto. 

Per creare il file indice eseguite 
CREA.INDICE (listato 1) e inseri¬ 
te il dischetto con i dati voluti quan¬ 
do siete invitati a farlo. Dopo esser¬ 
si assicurato che il file indice non e- 
siste già, il programma crea sul di¬ 
schetto ECF.INDEXFILE. Basterà 
che eseguiate CREA.INDICE quan¬ 
do inizierete un nuovo dischetto di 
dati. Quando si esegue Schedario si 
è accolti dal menù principale, come 
si vede in figura 1. Sulla destra 
del display si vedono il numero delle 
schede presenti nello schedario atti¬ 
vo e il numero delle schede che po¬ 
tranno ancora essere messe nello 
schedario. Sotto questi dati ci sono 
le informazioni sugli slot e sui dri¬ 
ve. Slot stampante è il numero dello 
slot della scheda d'interfaccia con la 
stampante, valore che ha il default a 
1; Slot drive è il numero di slot del- 


SCHEDARI 0 


DI JIM 6ANZ 


MENU DELLE 

OPZIONI : 



1 > 

COMPILA 

UNA SCHEDA 

N. SCHEDE: 0 


2) 

RICERCA 

SCHEDA/E 

SPAZIO PER 245 


3) 

RIMUOVI 

SCHEDA/E 



4) 

ORDINA 

SCHEDE 

SLOT STAMPANTE= 

1 

5) 

CREA 

SCHEDARIO 

SLOT DISCO 

ó 

6) 

SCEGLI 

SCHEDARIO 



7) 

ELIMINA 

SCHEDARIO 

DRIVE DISCO 

1 

8) 

COMANDI 

DISCO 



9) 

CAMBIA 

SLOT/DRIVE 

SCEGLI <?) 


0> 

FINE 





SCHEDARIO ATTICO: [NESSUNO] 


(C) 1986 BY APPLICANDO & MICROSPARC 

Figura 1. Menù principale 
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la scheda d’interfaccia con il drive, e 
Drive disco è il numero del drive (1 
o 2) impiegato al presente. In Pro- 
DOS viene visualizzato il prefix cor¬ 
rente in luogo delle informazioni su 
slot e drive. Alla base della finestra 
del display c'è il nome dello scheda¬ 
rio attivo. Notate che le opzioni del 
menù sono raggruppate in tre sezio¬ 
ni. Le opzioni 1-4 permettono di la¬ 
vorare con le schede che si trovano 
airintemo di uno schedario. Queste 
opzioni sono disponibili solo dopo 
la creazione o la scelta di uno scheda¬ 
rio (che fa di quello lo schedario atti¬ 


vo). L'opzione 4 può esser seleziona¬ 
ta solo dopo che sono state archivia¬ 
te due schede. Le opzioni 5-7 riguar¬ 
dano il mantenimento degli schedari 
e sono sempre disponibili. Le ulti¬ 
me tre opzioni sono ausiliarie, non 
toccano direttamente gli schedari o 
le schede e sono previste solo per co¬ 
modità dell'utilizzatore. Notate che 
in ProDOS l'opzione 9 (cambiare 
slot/drive) permette solo di cambiare 
lo slot della stampante. Usate il co¬ 
mando PREFIX dell’opzione 8 per 
cambiare il prefisso corrente. 

Per esempio per passare al drive 2 


in ProDOS introducete l’opzione 8 
e usate il comando: PREFIX,D2 


Come creare 
uno schedario 


Normalmente avrete più di uno 
schedario in uno specifico momen¬ 
to, e perciò dopo aver eseguito Sche¬ 
dario sceglierete, per selezionare lo 
schedario con cui lavorare, l'opzione 
6. Ma dato che questa è la prima vol¬ 
ta che usate il programma, scegliete 
l'opzione 5 per creare uno schedario. 
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Listato 1 


1 REM - 

2 REM CREA.INDICE 

3 REM DI JIM GANZ 

4 REM COPYRIGHT (C) 1986 

5 REM BY APPLICANDO & 

6 REM MICROSPARC, INC 

7 REM - 

100 REM CREA IL FILE INDICE PER LO SCHEDARIO 
110 TEXT : HOME : VTAB 23: PRINT "(C) 1986 BY APPLICANDO E MICROSPA 
RC"* VTAB 5 

120 PRINT "IL PROGRAMMA IMPOSTA IL FILE INDICE DA": PRINT 
130 PRINT "USARE CON LO 'SCHEDARIO'.";: PRINT 
140 PRINT 

150 PRINT "INSERISCI IL DISCHETTO SU CUI VUOI" 

160 PRINT "CHE SIA CREATO IL FILE INDICE..." 

170 PRINT : PRINT 

180 PRINT "PREMI ";: INVERSE : PRINT "RETURN";: NORMAL : INPUT " QU 
ANDO SEI PRONTO ";A$ 

190 VTAB PEEK (37): CALL - 868 
200 D$ = CHR$ (4) 

210 FI$ = "ECF.INDEXFILE" 

220 ONERR GOTO 310 
230 PRINT D$"VERIFY"FI$ 

240 PRINT "IL FILE INDICE E' GIÀ' SU QUESTO DISCO." 

250 PRINT "PREMI ";: INVERSE : PRINT "RETURN";: NORMAL : PRINT " PE 
R SOSTITUIRLO, ";: INVERSE : PRINT "ESC";: NORMAL : PRINT " PER 
USCIRE"; 

2 60 GET A$ 

270 IF A$ < > CHR$ (13) AND A$ < > CHR$ (27) THEN 260 

280 PRINT : IF A$ = CHR$ (27) THEN 370 

290 PRINT D$"OPEN"FI$: PRINT D$"CLOSE"FI$: PRINT D$"DELETE"FI$ 

300 GOTO 320 

310 IF PEEK (222) < > 6 THEN STOP 

320 POKE 216,0 

330 PRINT D$"OPEN"FI$",L83" 

340 PRINT D$"WRITE"FI$",R0" 

350 PRINT 0 

360 PRINT D$"CLOSE" 

370 HOME : END 


DOS 3.3 
ProDOS 

Apple Ile 
Apple Ile 


Tutte le opzioni 

Scegliete l’opzione 1 sul menù 
principale per aggiungere una sche¬ 
da allo schedario o per modificare u- 
na scheda esistente. Poi scegliete l’o¬ 
pzione 1 sul menù di compilazione 
per inserire una nuova scheda. Appa¬ 
rirà allora il display delle schede. A 
differenza delle schede classiche, o- 
gni scheda video ha nell’angolo alto 
a sinistra una targhetta che ne indica 
sezione e posizione. Si dispone del 
completo controllo del cursore nel 
perimetro della scheda. 

Battete qualche riga, poi premete 
<CTRL>C per cancellare quanto ave¬ 
te battuto e posizionate il cursore 
nell’angolo alto a sinistra. Gli altri 
tasti speciali sono descritti sul di¬ 
splay sotto la scheda (tavola 1). 

Quando si scorrono le schede, si 
ha l'opzione di procurarsi una copia 
su carta di una scheda. Se disponete 
di un Apple II Plus e scegliete que¬ 
sta opzione, venite invitati a dire se 
la stampa deve comprendere le minu¬ 
scole. Se battendo la scheda non so¬ 
no state messe sia maiuscole sia mi¬ 
nuscole, dovete optare per la stampa 
in sole maiuscole; altrimenti l’intera 


Vi viene chiesto adesso di introdurre 
il nome del nuovo schedario. Le sot¬ 
tolineature dopo il prompt indicano 
il numero massimo di caratteri che 
il nome può avere. 

Nel nostro caso, chiamiamo lo 
schedario d’inventario di computer 
INV.COMP per adeguarci alla lun¬ 
ghezza massima del nome. 

Adesso si battono queste risposte 
ai prompt (le risposte sono in ne¬ 
retto): 


NOME DEL NUOVO SCHEDA¬ 
RIO: INV.COMP.<RETURN> 
DIVISORI ALFABETICI ORDINA¬ 
RI (S/N)? N 

QUANTI DIVISORI (2/7)? 3 
ETICHETTA DEL DIVISORE 1: 
HARDW <RETURN> 
ETICHETTA DEL DIVISORE 2: 
SOFTW <RETURN> 

ETICHETTA DEL DIVISORE 3: 
ALTRO <RETURN> 


Alla fine lo schedario è stato crea¬ 
to e si ritorna al menù principale. 

L'opzione Divisori alfabetici ordi¬ 
nari divide lo schedario in sette sezio¬ 
ni alfabetiche (ABC, DEF, GHI, 
JKLM, NOPQ, RST, UVWXYZ). 
E’ utile, ad esempio, per archiviare 
nomi e indirizzi, dato che è più faci¬ 


le trovare una specifica scheda se è 
stata archiviata in ordine alfabetico. 
Nel nostro esempio deH'inventario 
di computer, invece, un articolo si 
trova più facilmente se è stato archi¬ 
viato per categoria. 


scheda sarà stampata in caratteri mi¬ 
nuscoli. Quando avete finito di batte¬ 
re ciascuna scheda, archiviatela nella 
sezione HARDW dello schedario. 

Ora che avete tre schede nello sche¬ 
dario dell'inventario di materiale in- 


SCHEDARIO:INO. 

C-QMP. 

SE2I ONE :HARDW 

1 APPLEIIEL 

15 . 

29 . 

2 STAMPANTE 

16 . 

30 . 

3 DUODISKLI 

17 . 

31 . 

4 . 

18 . 

32 . 

5 . 

1? . 

33 . 

6 . 

20 . 

34 . 

7 . 

21 . 

35 . 

8 . 

22 . 


? . 

23 . 


10 . 

24 . 


11 . 

25 . 


12 . 

26 . 


13 . 

27 . 


14 . 

28 . 


MENU RIORDINO SCHEDE 

<1) OISUALI ZZA UNA SCHEDA 


<2> SCAMBIA LE SCHEDE 


(3) ORDINE ALFABETICO 


< 4) MENU PRINCIPALE 

SCEGLI (?) 

Figura 2. Display ordinamento/riordino. 
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Listato 2 


1 HIMEM: 19456:CC$ = "*********» + 

GOTO 4190: REM 9 *'S 

2 REM - 

3 REM SCHEDARIO 

4 REM DI JIM GANZ 

5 REM COPYRIGHT (C) 1986 

6 REM BY APPLICANDO & 

7 REM MICROSPARC, INC 

8 REM - 

90 REM ** SUBROUTINE SPOSTAMENTO MEMORIA ** 

100 POKE MI,OS - INT (OS / M4) * M4: POKE MI + 1 
, INT (OS / M4) 

110 POKE M2,OE - INT (OE / M4) * M4: POKE M2 + 1 
, INT (OE / M4) 

120 POKE M3,NS - INT (NS / M4) * M4: POKE M3 + 1 
, INT (NS / M4) 

130 CALL MV: RETURN 

140 REM ** SCAMBIA SCHEDE ** 

150 OS = 20481 + 494 * (SI - 1):OE = OS + 493:NS 
= 37905: GOSUB 90 

160 NS = OS:OS = 20481 + 494 * (S2 - l):OE = OS + 
493: GOSUB 90 

170 NS = OS:OS = 37905:OE » 38398: GOSUB 90 

180 S$ = C$(SI):C$ (SI) = C$ (S2):C$ (S2) = S$ 

190 RETURN 

200 REM ** STAMPA SU CARTA ** 

210 POKE 34,17: HOME : ON PEEK ( - 1101) = 6 GOT 
O 240: VTAB 19: PRINT "(1) SCHEDA IN MAIUSCOL 
E E MINUSCOLE": PRINT "(2) SCHEDA IN SOLE MAI 
USCOLE" 

220 PRINT : PRINT "SCEGLI ( )";: HTAB 9: GET X$: 
IF X$ < "1" OR X$ > "2" THEN CALL BL: GOTO 2 
20 

230 PRINT X$:UP = (X$ = "2"): POKE - 16368,0 
240 PRINT D$"PR#"; PS 

250 PRINT : PRINT CF$": "ND$", SCHEDA N."X 
260 PRINT DA$ 

270 FOR P = 1 TO 13: PRINT " ";: FOR PI = MEM(P) 

TO MEM(P) + 37 
280 P2 = PEEK (PI) 

290 IF UP THEN PRINT CHR$ (P2 + 192 * (P2 < 32) 

+ 128 * (P2 > 31 AND P2 < 64));: GOTO 310 
300 PRINT CHR$ (P2 + 224 * (P2 < 32) + 128 * (P2 
> 31 AND P2 < 64)); 

310 NEXT : PRINT : NEXT 
320 PRINT DA$: PRINT D$"PR#0" 

330 HOME : RETURN 

340 REM ** ELENCO DIVISORI ** 

350 HOME : PRINT "DIVISORI:": PRINT 

360 FOR S = 1 TO ND STEP 4: FOR A = 0 TO 3 

370 HTAB 10 * A + 1: PRINT ND$(S + A); 

380 NEXT : PRINT : NEXT : PRINT : PRINT 

390 FL = 1: VTAB 17: CALL - 868: IF NOT LEN (D 

V$) THEN 410 

400 VTAB 17: HTAB 33 - LEN (DV$): PRINT "DEFAULT 
="DV$; 

410 VTAB 18: CALL - 868: VTAB 18: INPUT "QUALE S 
EZIONE? ";ND$:SS$ = ND$: GOSUB 610:ND$ = ST$: 
IF NOT LEN (ND$) AND LEN (DV$) THEN VTAB 
18: HTAB 16: PRINT DV$: RETURN 
420 IF ND$ = DV$ THEN RETURN 

430 DV$ = ND$:FL « 0: FOR S = 1 TO ND:FL = FL + S 

* (ND$ (S) = DV$) : NEXT :DN = FL: IF NOT FL 

THEN DV$ = "": CALL BL: GOTO 390 
440 PRINT D$"BLOADECF."CF$"."DN",A$5000": RETURN 
450 REM ** ELENCO SCHEDARI ** 

460 VF = 1: PRINT D$"VERIFY"FI$:VF = 0 
470 PRINT D$"OPEN"FI$",L83": PRINT D$"READ"FI$",R 
0" 

480 INPUT NC:TC = NC 

490 IF NOT NC THEN PRINT D$"CLOSE": GOTO 540 

500 FOR S = 1 TO NC 

510 PRINT D$"READ"FI$",R"S 

520 INPUT CF$(S):TC = TC - ( LEFT$ (CF$(S),1) - " 
/v ") : NEXT 

530 PRINT D$"CLOSE 

540 VTAB 9: IF NOT NC THEN PRINT "NESSUNO SCHED 
ARIO SU QUESTO DISCHETTO": GOTO 580 
550 PRINT "SCHEDARI:"; 

560 FOR S = 1 TO NC: HTAB 12: IF LEFTS (CF$(S),1 
) < > " A " THEN PRINT CF$(S) 

570 NEXT 

580 PRINT : RETURN 

590 REM ** VISUALIZZA SCHEDE ** 

600 TEXT : HOME : CALL CA: RETURN 

610 REM ** CONVERSIONE DA MINUSCOLE A MAIUSCOLE 


DOS 3.3 
ProDOS 

Apple Ile 
Apple Ile 


620 

630 


IF NOT LEN (SS$) THEN RETURN 

ST$ = "": FOR II = 1 TO LEN (SS$):S9 = ASC 


( MID$ (SS$,11,1)) 

640 IF S9 > 96 AND S9 < 123 THEN S9 = S9 - 32 
650 ST$ = ST$ + CHR$ (S9): NEXT : RETURN 
660 REM ** CONTROLLO PER LA STRINGA ALFANUMERIC 
A ** 

670 EF = 0: FOR II = 1 TO LEN (SS$):S9 = ASC ( 
MID$ (SS$,II,1)) : IF S9 < > 46 AND (S9 < 48 

OR (S9 > 57 AND S9 < 65) OR (S9 > 90 AND S9 < 
97) OR S9 > 122) THEN EF = 1:11 * LEN (SS$) 
680 NEXT : RETURN 
690 REM ** COMPILA LA SCHEDA ** 

700 FL = 0 

710 PRINT : HTAB 12: PRINT "MENU COMPILAZIONE" 

720 VTAB 11: PRINT "(1) AGGIUNGI UNA NUOVA SCHEDA 

730 PRINT : PRINT "(2) COMPILA UNA SCHEDA ESISTEN 
TE" 

740 PRINT : PRINT "(3) MENU PRINCIPALE" 

750 VTAB 18: PRINT "SCEGLI (1-3) O <ESC> ( )";: H 
TAB 23 

760 GET S$: PRINT S$;:S = VAL (S$): IF S$ = ES$ 
THEN S = 3 

770 IF S < 1 OR S > 3 OR (S = 2 AND NOT C) OR (S 

= 1 AND NOT (ND * 35 - C)) THEN PRINT CHR 

$ (7): GOTO 750 
780 ON S GOTO 790,1220,4180 
790 GOSUB 590 

800 HTAB 13: PRINT "SCHEDARIO: "CF$ 

810 VTAB 19: PRINT "CTRL-C...ANNULLA LA SCHEDA" S 
PC( 14)"CTRL-K/J O FRECCE...CURSORE SU/GIU'" 
820 IF PEEK ( - 1101) < > 6 THEN PRINT "ESC... 

.MAIUSCOLE PER CARATT SEGUENTE CTRL-A/S.. 

.FISSA MAIUSCOLE/MINUSCOLE" 

830 PRINT "CTRL-F.ARCHIVIA QUESTA SCHEDA": PR 

INT "CTRL-Q.MENU'"; 

840 POKE 32,1: POKE 33, 38: POKE 34,3 
850 VTAB 4: HTAB 1: CALL 825 

860 TEXT : NORMAL : IF FL = 2 THEN FL = 0 : RETURN 


870 

880 


890 

900 


910 

920 

930 

940 


950 

960 

970 


980 


990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 


1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 


IF PEEK (6) = 145 THEN 1440 

VTAB 19: HTAB 1: CALL - 958: VTAB 21: PRINT 

"UN MOMENTO..." 

FOR S = 1 TO 13:OS = MEM(S):OE = OS + 37:NS - 
37905 + (S - 1) * 38: GOSUB 90: NEXT 
SD = 1: RESTORE : FOR S = 1 TO 7: READ SS: SD 
= SD - (S$ < > ND$(S)): NEXT : IF SD < 0 THE 

N SD = 0 

GOSUB 4400: IF SD THEN 970 
GOSUB 340 

IF NOT LEN (DV$) THEN 1440 

IF PEEK (20480) = 35 THEN PRINT : PRINT "SP 
AZIO INSUFFICIENTE IN QUESTA SEZIONE.": PRINT 
: GOSUB 390: GOTO 930 
GOTO 1130 

REM DIVISORI ORDINARI 

FOR S = 37905 TO 38398:S$ = "": IF PEEK (S) 
AND PEEK (S) < 27 THEN S$ = CHR$ ( PEEK (S) 
+ 64):S = 38398: NEXT : GOTO 1010 
IF PEEK (S) > 192 AND PEEK (S) < 219 THEN S 
$ = CHR$ ( PEEK (S) - 128):S = 38398: NEXT : 
GOTO 1010 

IF PEEK (S) AND S$ = "" THEN S$ = "A":S = 38 
398: NEXT : GOTO 1010 
NEXT : GOTO 4380 
FOR S - 1 TO ND 
FOR A - 1 TO LEN (ND$ (S)) 

IF MID$ (ND$(S),A,1) = S$ THEN ND$ = ND$ (S) 
:A = LEN (ND$(S)):DN = S:S = ND 
NEXT : NEXT : IF ND$ = DV$ THEN 1060 
DVS = ND$: PRINT : GOSUB 440 
IF PEEK (20480) = 35 THEN PRINT : PRINT "N 
OTA: SPAZIO INSUFFICIENTE NELLA SEZIONE"ND$; 
: PRINT "DI QUESTO SCHEDARIO...":SS = "N": G 
OTO 1120 

PRINT "LA SCHEDA CORRENTE SARA' MESSA NELLA" 
PRINT "SEZIONE DIVISORI..."; 

PRINT CHRS (34)DV$ CHRS (34);" (S/N)? "; 

GET SS: PRINT SS 

IF SS < > "S" AND SS < > "N" THEN PRINT : 

GOTO 1070 

IF SS = "N" THEN GOSUB 340: GOTO 930 
PRINT : PRINT "STO INSERENDO" 

OS = 37905:OE - 38398:NS 
EK (20480): GOSUB 90 
POKE 20480, PEEK (20480) 

C = C + 1 

PRINT D$"OPEN"FI$",L83 
PRINT D$"WRITE"FI$",R"TS 
PRINT CFS: PRINT ND: FOR 
NDS (S): NEXT : PRINT C 
PRINT D$"CLOSE 


= 20481 + 494 * PE 
+ 1 


S = 1 TO ND: PRINT 


(Continua) 
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1210 GOTO 1430 

1220 REM COMPILAZIONE SCHEDA ESISTENTE 
1230 GOSUB 340 

1-240 IF NOT LEN (DV$) THEN 1440 
1250 NC = PEEK (20480): PRINT 

1260 VTAB 20: CALL - 868: IF NOT NC THEN VTAB 
20: PRINT "NESSUNA SCHEDA IN QUESTA SEZIONE. 
":DV$ = PRINT : GOSUB 390: GOTO 1240 

1270 VTAB 20: CALL - 868: VTAB 20: PRINT "SCHEDA 
NUMERO (1-"NC;: INPUT ")? ";S$:S = VAL (S$ 

) : IF S < 1 OR S > NC THEN 1270 
1280 GOSUB 590 

1290 HTAB 13: PRINT "SCHEDARIO: "CF$;: INVERSE : 
HTAB 2: PRINT DV$ 

1300 HTAB 2: PRINT S" DI "NC: NORMAL 
1310 ST = 20481 + 494 * (S - 1): FOR A = 1 TO 13: 
OS = ST + (A - 1) * 38:OE = OS + 37:NS = MEM 
(A): GOSUB 90: NEXT 

1320 VTAB 19: PRINT "E 1 QUESTA LA SCHEDA (S/N)?" 
;: GET A$: PRINT A$: IF A$ < > "S" AND A$ < 

> "N" AND A$ < > CHR$ (121) AND A$ < > 

CHR$ (110) THEN 1320 

1330 IF A$ = "N" OR A$ = CHR$ (110) THEN GOSUB 
4410: GOTO 1220 
1340 FL = 2: GOSUB 810 
1350 POKE 34,17: HOME : VTAB 19 

1360 PRINT "(1) RIARCHIVIARE QUESTA SCHEDA": PRIN 
T 

1370 PRINT "(2) MENU" 

1380 PRINT : PRINT "SCEGLI ( ) O <ESC>"; 

1390 HTAB 9: GET A$: IF (A$ < "1" OR A$ > "2") AN 
D A$ < > ESS THEN 1390 

1400 PRINT A$: IF A$ = "2" OR A$ = ES$ THEN 1440 
1410 HOME : VTAB 20: PRINT "STO INSERENDO" 

1420 FOR A = 1 TO 13:OS = MEM(A):OE = OS + 37:NS 
= ST + (A - 1) * 38: GOSUB 90: NEXT 
1430 PRINT D$"BSAVEECF."CF$"."DN", A20480,L"1 + 49 
4 * PEEK (20480) 

1440 GOSUB 4400: GOTO 690 
1450 REM ** RICERCA SCHEDE ** 

1460 PRINT : HTAB 12: PRINT "RICERCA SCHEDA/E" 
1470 VTAB 10: PRINT "(1) ESAMINA L'INTERO SCHEDAR 
IO" 

1480 PRINT : PRINT "(2) ESAMINA UNA SEZIONE SPECI 
FICA" 

1490 PRINT : PRINT "(3) ESAMINA UNA SCHEDA SPECIF 
ICA" 

1500 PRINT : PRINT "(4) MENU PRINCIPALE 
1510 VTAB 19: PRINT "SCEGLI (1-4) O <ESC> ( )";: 
HTAB 24 

1520 GET S$: PRINT S$;:S = VAL (S$): IF S$ = ES$ 
THEN S = 4 

1530 IF S < 1 OR S > 4 THEN PRINT CHR$ (7): GOT 
O 1510 

1540 ON S GOTO 1550,1770,1950,4180 
1550 REM ESAMINA L'INTERO SCHEDARIO 
1560 GOSUB 590 
1570 FL = 0:DV$ = "" 

1580 HTAB 13: PRINT "SCHEDARIO: "CF$ 

1590 FOR SS = 1 TO ND:ND$ = ND$(SS) 

1600 POKE 34,17: HOME 

1610 PRINT D$"BLOADECF."CF$"."SS",A$5000" 

1620 A = PEEK (20480): IF NOT (A) THEN VTAB 20 
: PRINT "(NESSUNA SCHEDA NELLA SEZIONE "ND$" 
)": FOR A = 1 TO 2500: NEXT : NEXT : GOTO 21 
00 

1630 FOR X = 1 TO A: POKE 34,0: CALL CA: INVERSE 
: VTAB 1: HTAB 2: PRINT ND$: HTAB 2: PRINT X 
" DI "A: NORMAL 

1640 ST = 20481 + 494 * (X - 1): FOR Y = 1 TO 13: 

OS = ST + (Y - 1) * 38:OE = OS + 37:NS = MEM 

(Y): GOSUB 90: NEXT 

1650 VTAB 19: PRINT "(1) SCHEDA SUCCESSIVA" 

1660 PRINT "(2) SEZIONE SUCCESSIVA" 

1670 PRINT "(3) STAMPA SU CARTA QUESTA SCHEDA" 
1680 PRINT "(4) MENU" 

1690 PRINT : PRINT "SCEGLI ( ) O <ESC>"; 

1700 POKE - 16368,0: HTAB 9: GET S$:S = VAL (S$ 

) + 4 * (S$ = ES$): IF S < 1 OR S > 4 THEN 
CALL BL: GOTO 1700 

1710 PRINT S;: VTAB 18: PRINT : ON S GOTO 1750,17 
20,1730,1740 
1720 X = A: GOTO 1750 
1730 GOSUB 200: GOTO 1750 
1740 X = A:SS = ND: NEXT : GOTO 1760 
1750 NEXT : CALL CA:FL = FL + A: IF FL = C THEN 

POKE 34,17: HOME : VTAB 20: PRINT "NON CI SO 
NO PIU' SCHEDE NELLO SCHEDARIO.": FOR A = 1 
TO 3000: NEXT : SS - ND 
1760 NEXT : GOTO 2100 
1770 REM ESAMINA SEZIONE 


1780 GOSUB 340 

1790 IF NOT LEN (DV$) THEN 2100 
1800 GOSUB 590 

1810 HTAB 13: PRINT "SCHEDARIO: "CF$ 

1820 A = PEEK (20480) : IF NOT (A) THEN VTAB 20 
: PRINT "(NESSUNA SCHEDA NELLA SEZIONE "DV$" 

)": FOR A = 1 TO 2500: NEXT :DV$ = "": GOTO 
2100 

1830 FOR X = 1 TO A: TEXT : CALL CA: INVERSE : VT 
AB 1: HTAB 2: PRINT DV$: HTAB 2: PRINT X" DI 
"A: NORMAL 

1840 ST - 20481 + 494 * (X - 1): FOR Y = 1 TO 13: 

OS = ST + (Y - 1) * 38:OE = OS + 37:NS = MEM 

(Y): GOSUB 90: NEXT 

1850 POKE 34,17: VTAB 19: PRINT "(1) SCHEDA SUCCE 
SSIVA" 

1860 PRINT "(2) STAMPA SU CARTA QUESTA SCHEDA" 

1870 PRINT "(3) MENU" 

1880 PRINT : PRINT "SCEGLI ( ) O <ESC>"; 

1890 HTAB 9: GET S$:S » VAL (S$) + 3 * (SS = ES$ 

): IF S < 1 OR S > 3 THEN CALL BL: GOTO 189 
0 

1900 PRINT S 

1910 ON S GOTO 1940,1920,1930 
1920 ND$ = DV$: GOSUB 200: GOTO 1940 
1930 X = A 

1940 NEXT : GOTO 2100 
1950 REM ESAMINA SCHEDA 
1960 GOSUB 340 

1970 IF NOT LEN (DV$) THEN 2100 
1980 PRINT 

1990 X = PEEK (20480): VTAB 20: CALL - 868: IF 
NOT X THEN VTAB 20: PRINT "NESSUNA SCHEDA 
IN QUESTA SEZIONE.":DVS « "": PRINT : GOSUB 
390: GOTO 1970 

2000 PRINT "QUALE SCHEDA (1-"X;: INPUT ")? ";S$:S 
= VAL (S$): IF S < 1 OR S > X THEN CALL B 
L: GOTO 1980 

2010 GOSUB 590: HTAB 13: PRINT "SCHEDARIO: "CF$ 

2020 INVERSE : VTAB 1: HTAB 2: PRINT DVS: HTAB 2: 
PRINT S" DI "X: NORMAL 

2030 ST = 20481 + 494 * (S - 1): FOR Y - 1 TO 13: 

OS - ST + (Y - 1) * 38:OE = OS + 37:NS = MEM 

(Y): GOSUB 90: NEXT 
2040 POKE 34,17: VTAB 19 

2050 PRINT "(1) STAMPA SU CARTA QUESTA SCHEDA": P 
RINT 

20 60 PRINT "(2) MENU" 

2070 PRINT : PRINT "SCEGLI ( ) O <ESC>"; 

2080 HTAB 9: GET SS: IF (SS < "1" OR SS > "2") AN 

D SS < > ESS THEN CALL BL: GOTO 2080 

2090 IF SS = "1" THEN NDS = DV$:X = S: GOSUB 200 
2100 GOSUB 4400: GOTO 1450 
2110 REM ** ELIMINA LA SCHEDA ** 

2120 PRINT : HTAB 10: PRINT "ELIMINA UNA SCHEDA" 

2130 VTAB 10: HTAB 5: PRINT "RICORDA CHE QUANDO U 

NA SCHEDA E' STATA" 

2140 HTAB 5: PRINT "ELIMINATA NON PUÒ' ESSERE RIP 
RISTINATA." 

2150 VTAB 14: PRINT "(1) ELIMINA UNA SCHEDA": PRI 
NT 

2160 PRINT "(2) MENU* PRINCIPALE": PRINT : PRINT - 
2170 PRINT "SCEGLI ( ) O <ESC>"; 

2180 HTAB 9: GET SS: IF (SS < "1" OR SS > "2") AN 

D SS < > ESS THEN CALL BL: GOTO 2180 

2190 PRINT SS: IF SS = "2" OR SS = ESS THEN 4180 
2200 GOSUB 340 

2210 IF NOT LEN (DVS) THEN 2440 
2220 PRINT 

2230 A = PEEK (20480): VTAB 20: CALL - 868: IF 
NOT (A) THEN VTAB 20: PRINT "NESSUNA SCHED 
A IN QUESTA SEZIONE.":DVS = "": PRINT : GOSU 
B 390: GOTO 2210 

2240 PRINT "QUALE SCHEDA (1-"A;: INPUT ")? ";S$:X 
= VAL (SS): IF X < 1 OR X > (A) THEN 2220 
2250 GOSUB 590: HTAB 13: PRINT "SCHEDARIO: "CFS 
2260 INVERSE : VTAB 1: HTAB 2: PRINT DVS: HTAB 2: 
PRINT X" DI "A: NORMAL 

2270 ST = 20481 + 494 * (X - 1): FOR Y = 1 TO 13: 

OS = ST + (Y - 1) * 38 :OE = OS + 37:NS = MEM 
(Y): GOSUB 90: NEXT 

2280 VTAB 19: PRINT "(1) ELIMINA LA SCHEDA DALLO 
SCHEDARIO": PRINT 
2290 PRINT "(2) MENU" 

2300 PRINT : PRINT "SCEGLI ( ) O <ESC>"; 

2310 HTAB 9: GET SS: IF (SS < "1" OR SS > "2") AN 
D SS < > ESS THEN CALL BL: GOTO 2310 

2320 PRINT SS: IF SS = "2" OR SS = ESS THEN 2440 
2330 POKE 34,17: HOME 
2340 IF A = X THEN 2360 

2350 OS = 20481 + 494 * (A - 1):OE = OS + 493:NS 

(Continua) 
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INV.COMP.: HARDW, SCHEDA N.l 


Apple Ile Lit. 1.416.413 

acquistato con manuali ProDos 

Numero del modello A2S1048 
Numero di serie A2S2-123456 

Acquistato il 28/01/86 
Computer Shop 
Vi a Verdi 2 
Mi 1 ano 


INV.COMP.: HARDW, SCHEDA N.2 


Stampante ImageWriter II LIT.1.416.000 


Numero di serie 123456 


Acquistata 02/02/86 
Computer Shop 
Via Verdi 2 
Mi1 ano 


INV.COMP.: HARDW, SCHEDA N.3 


Duodisk Lit.1.298.000 

Acquistato il 02/02/36 
Computer Shop- Vi a Verdi 2 
Mi 1 ano 

Scheda 80 col. + 64K Lit. 401.200 

Acquistata il 15/02/86 
Computer Service - Via Rossi 5 
Milano 


Figura 3. Esempio di utilizzo. 


formatico potete divertirvi davvero. 
Sul menù di editing si può scegliere 
una scheda da modificare, aggiornan¬ 
do le informazioni o facendo corre¬ 
zioni. L'opzione 2 del menù princi¬ 
pale permette di fare la scelta delle 
schede esaminando tutte le schede 
dello schedario, quelle di una specifi¬ 
ca sezione o una specifica scheda. 
L'opzione 3 del menù principale per¬ 
mette di eliminare una scheda dallo 
schedario. 

Questa opzione e l'opzione 7, che 
elimina un intero schedario, dovreb¬ 
bero essere usate con cautela: una 
volta che una scheda o uno schedario 
sono stati eliminati non possono es¬ 
sere ripristinati. Per aiutare a evitare 
un disastro il programma chiede con¬ 
ferma di queste operazioni. 

Scegliete l'opzione 4 sul menù 
principale se volete manipolare le 
schede all'intemo di una sezione, op¬ 
pure ordinare alfabeticamente tutte le 
schede di una sezione. Dopo aver 
specificato la sezione di schedario 
che volete ordinare o riordinare c'è u- 
na breve pausa mentre viene costrui¬ 
to il menù di riordino. 

La figura 2 mostra il menù per la 
sezione hardware dello schedario d'in¬ 
ventario di computer. Le voci rappre¬ 
sentano gli spazi per un massimo di 
35 schede nella sezione dello scheda¬ 
rio. Accanto a ognuno dei 35 nume¬ 
ri di scheda sono i primi nove carat¬ 
teri (lettere, numeri, simboli, ma 
non spazi) stampati su ogni scheda. 
Questi nove caratteri vengono utiliz¬ 
zati a fini di identificazione nell'ordi- 
namento e nello scambio delle sche¬ 
de. Se non riuscite a identificare una 
scheda dai primi nove caratteri sce¬ 
gliete l'opzione 1 sul menù di riordi¬ 
no per vedere l'intera scheda. 

L'opzione 2 del menù di riordino 
permette di scambiare di posto due 
schede. Per esempio se volete orga¬ 
nizzare la sezione in modo che le 
schede riguardanti computer e drive 
siano adiacenti, scegliete l'opzione 
2 e scambiate le schede 1 e 2. Prova¬ 
te a eseguire questa operazione. Un 
modo più facile (e migliore) di orga¬ 
nizzare questa sezione sarebbe quello 
di scegliere l’opzione 3 sul menù di 
riordino per disporre le schede in or¬ 
dine alfabetico. Notate che solo i pri¬ 
mi nove caratteri di una scheda diver¬ 
si dallo spazio sono utilizzati nel 
processo di ordinamento; il contenu¬ 
to del resto della scheda non viene 
preso in considerazione. 

Quando si sceglie l'opzione 4 per 


tornare al menù principale la sezio¬ 
ne viene risalvata se si sono apporta¬ 
te modifiche mentre si era in fase di 
riordino. 

La scelta dell'opzione 8 sul menù 
principale mette nel modo comandi 
disco. Quando si è in questo modo 
si possono catalogare, privare della 
protezione, cancellare e rinominare i 
file. Quando scegliete l'opzione 8 lo 


schermo si pulisce e venite accolti 
da un prompt di due punti (:). Potete 
introdurre qualsiasi comando valido 
DOS o ProDOS ed eseguire qualsia¬ 
si operazione valida sul dischetto. 
Se si dovesse verificare un errore 
mentre siete nel modo comandi di¬ 
sco viene mostrato il codice dell'erro- 
re e venite riportati al prompt di due 
punti. Per tornare al menù principa- 
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= ST: GOSUB 90 
2360 POKE 20480,A - 1 
2370 PRINT D$"DELETEECF. "CF$ ,, . "DN 
2380 PRINT D$"BSAVEECF."CF$"."DN",A20480,L"1 + 49 
4 * PEEK (20480) 

2390 C = C - 1 

2400 PRINT D$"OPEN"FI$",L83 

2410 PRINT D$"WRITE"FI$",R"TS 

2420 PRINT CF$: PRINT ND: FOR S = 1 TO ND: PRINT 
ND$ (S): NEXT : PRINT C 
2430 PRINT D$"CLOSE 
2440 GOSUB 4400: GOTO 2110 
2450 REM ** ORDINA SCHEDE ** 

2460 PRINT : HTAB 11: PRINT "ORDINAMENTO SCHEDE" 
2470 PRINT : PRINT "DIVISORI:": PRINT : GOSUB 360 
2480 IF NOT LEN (DV$) THEN 4180 
2490 NC = PEEK (20480):SF = 0: VTAB 20: CALL - 
868 

2500 IF NC < 2 THEN PRINT CHR$ (7): VTAB 20: PR 
INT "CI SONO POCHE SCHEDE IN QUESTA SEZIONE. 

":DV$ = "": GOSUB 390: GOTO 2480 
2510 PRINT : PRINT "UN MOMENTO...": IF NC < > 35 

THEN FOR S = NC + 1 TO 35:C$(S) = ". 

..": NEXT : REM (9 PUNTI) 

2520 FOR S - 1 TO NC:C$(S) = "" 

2530 MEM = 20481 + 494 * (S - 1) 

2540 POKE 252, INT (MEM / 256): POKE 251,MEM - 25 
6 * PEEK (252) 

2550 POKE 37773, INT ((MEM + 494) / 256): POKE 37 
772,MEM + 494 - 256 * PEEK (37773) 

2560 CALL 37774 
2570 C$(S) = CC$ 

2580 NEXT 
2590 TEXT : HOME 

2600 PRINT "SCHEDARIO:";: INVERSE : PRINT LEFT$ 
(CF$,14); : NORMAL : HTAB 33 - LEN (DV$): PR 
INT "SEZIONE:";: INVERSE : PRINT DV$;: NORMA 
L : PRINT DA$ 

2610 S = 35: VTAB 17: PRINT DA$ 

2620 FOR X = 1 TO S 

2630 IF X = 1 OR X = 15 OR X = 29 THEN VTAB 3 
2640 HTAB 1 + (X < 10) + 14 * (X > 14) + 14 * (X 
> 28) 

2650 PRINT X" "C$(X); 

2660 IF X < 29 THEN PRINT 

2670 NEXT : VTAB 24: PRINT LEFT$ (DA$,39);: POKE 
2039,173 

2680 VTAB 18: POKE 34,17: POKE 35,23: HOME 
2690 HTAB 7: PRINT "MENU RIORDINO SCHEDE": PRINT 
DA$; 

2700 PRINT "(1) VISUALIZZA UNA SCHEDA" 

2710 PRINT "(2) SCAMBIA LE SCHEDE" 

2720 PRINT "(3) ORDINE ALFABETICO" 

2730 PRINT "(4) MENU PRINCIPALE"; 

2740 HTAB 28: PRINT "SCEGLI ( )"; 

2750 HTAB 36: GET S$: IF (S$ < "1" OR S$ > "4") A 
ND S$ < > ES$ THEN CALL BL: GOTO 2750 
2760 IF S$ = ES$ THEN S$ = "4" 

2770 PRINT S$;: HOME : PRINT 

2780 ON VAL (S$) GOTO 2790,2860,2950,2970 

2790 PRINT : PRINT "VISUALIZZA SCHEDA N. (1-"NC;: 

INPUT "): ";S$:S = VAL (S$) 

2800 IF S < 1 OR S > NC THEN HOME : GOTO 2690 
2810 GOSUB 590 

2820 HTAB 13: PRINT "SCHEDARIO: "CF$ 

2830 INVERSE : VTAB 1: HTAB 2: PRINT DV$: HTAB 2: 
PRINT S" DI "NC: NORMAL 

2840 ST = 20481 + 494 * (S - 1): FOR Y = 1 TO 13: 
OS = ST + (Y - 1) * 38:OE = OS + 37:NS = MEM 
(Y): GOSUB 90: NEXT 

2850 VTAB 21: INPUT "PREMI <RETURN> PER IL MENU' 

";S$: GOTO 2590 

2860 SF = 1: PRINT "PRIMA SCHEDA (1-"NC;: INPUT " 
) : ";S1$: PRINT 

2870 SI = VAL (Sl$) : IF NOT SI OR SI > NC THEN 
CALL BL: GOTO 2680 

2880 VTAB 2 + SI * (SI < 15) + (SI - 14) * (SI > 

14 AND SI < 29) + (SI - 28) * (SI > 28): HTA 

B 4 + 14 * (SI > 14) + 14 * (SI > 28): FLASH 
: PRINT C$ (SI); : NORMAL 
2890 VTAB 21: HTAB 1 

2900 PRINT "SECONDA SCHEDA (1-"NC;: INPUT "): ";S 
2$: HOME 

2910 S2 = VAL (S2$): IF NOT S2 OR S2 > NC OR SI 
= S2 THEN CALL BL: GOTO 2940 
2920 VTAB 2 + S2 * (S2 < 15) + (S2 - 14) * (S2 > 

14 AND S2 < 29) + (S2 - 28) * (S2 > 28): HTA 

B 4 + 14 * (S2 > 14) + 14 * (S2 > 28): FLASH 
: PRINT C$ (S2); : NORMAL 
2930 VTAB 21: HTAB 1: GOSUB 140 
2940 TEXT :S = NC: GOTO 2620 


2950 SF * 1: PRINT "STO ORDINANDO ";:FL = 0: FOR 
S = 1 TO NC - 1: IF C$(S) > C$(S + 1) THEN S 
1 = S:S2 = S + 1:FL = 1 : GOSUB 140 
2960 NEXT : ON FL + 1 GOTO 2940,2950 
2970 IF SF THEN PRINT "UN MOMENTO...": PRINT D$" 
BSAVEECF . "CF$" . "DN",A20480,L"1 + 494 * NC 
2980 GOTO 4380 

2990 REM ** CREA SCHEDARIO ** 

3000 PRINT : HTAB 12: PRINT "CREA UNO SCHEDARIO" 

3010 GOSUB 450: IF NC = 10 THEN PRINT "IL N. MAS 
SIMO E* DI 10 SCHEDARI!": PRINT "PREMI UN QU 
ALSIASI TASTO PER IL MENU": WAIT - 16384,12 
8: POKE - 16368,0: GOTO 4180 
3020 VP = PEEK (37) + 1: PRINT "NOME DEL NUOVO S 
CHEDARIO (9 CAR): ": FOR S = 1 TO 9: PRINT 
CHR$ (95);: NEXT : HTAB 1: INPUT "";CF$ 

3030 IF LEN (CF$) > 9 OR LEN (CF$) < 1 THEN VT 
AB VP: CALL BL: CALL - 958: GOTO 3020 
3040 SS$ = CF$: GOSUB 670: IF EF THEN VTAB PEEK 
(37): CALL - 868: CALL BL: GOTO 3020 
3050 PRINT : PRINT "DIVISORI ALFABETICI ORDINARI 
(S/N)? "; 

3060 GET S$: IF S$ < > "S" AND S$ < > "N" THEN 

CALL BL: GOTO 3060 

3070 PRINT S$: IF S$ = "S" THEN ND = 7: RESTORE : 

FOR S = 1 TO ND: READ ND$(S): NEXT : GOTO 3 
160 

3080 FOR S = 1 TO 7:ND$(S) = NEXT 

3090 PRINT : PRINT "QUANTI DIVISORI (2-7)? "; 

3100 GET ND$:ND = VAL (ND$): IF ND < 2 OR ND > 7 
THEN CALL BL: GOTO 3100 
3110 HOME : PRINT ND$: FOR S = 1 TO ND: PRINT 
3120 PRINT "ETICHETTA DIVISORE N."S" (6 CAR)"; 

3130 VP = PEEK (37) + 1: HTAB 33: FOR I = 1 TO 6 
: PRINT CHR$ (95);: NEXT : HTAB 31: INPUT " 

: ";ND$ (S): IF LEN (ND$ (S)) > 6 OR LEN (ND 
$(S)) <1 THEN VTAB VP: CALL BL: CALL - 95 
8: GOTO 3120 

3140 SS$ = ND$ (S) : GOSUB 670: IF EF THEN VTAB P 
EEK (37): CALL BL: GOTO 3130 
3150 NEXT 

3160 PRINT : PRINT "UN MOMENTO..." 

3170 PRINT D$"OPEN"FI$",L83 
3180 PRINT D$"WRITE"FI$",R0 
3190 PRINT NC + 1 
3200 PRINT D$"WRITE"FI$",R"NC + 1 
3210 PRINT CF$: PRINT ND 

3220 FOR S = 1 TO ND: PRINT ND$(S) : NEXT : PRINT 
0 

3230 PRINT D$"CLOSE 

3240 POKE 20480, 0:TS = NC + 1 

3250 FOR S = 1 TO ND 

3260 PRINT D$"BSAVEECF."CF$" . "S", A20480, LI 
3270 NEXT :C = 0:DV$ = "" 

3280 GOTO 4180 

3290 REM ** SCELTA SCHEDARIO ** 

3300 PRINT : HTAB 12: PRINT "SCEGLI UNO SCHEDARIO 

3310 GOSUB 450: IF NOT TC THEN PRINT : INPUT "P 
REMI <RETURN> ";S$: GOTO 4180 
3320 INPUT "QUALE? ";CF$ 

3330 SS$ = CF$: GOSUB 610:CF$ = ST$ 

3340 FL = 0: FOR S = 1 TO NC :FL = FL + (CF$ = CF$ 

(S)): NEXT : IF NOT FL THEN 3700 
3350 FOR S = 1 TO 7:ND$(S) = "": NEXT 
3360 PRINT D$"OPEN"FI$",L83 
3370 FOR S » 1 TO NC 
3380 PRINT D$"READ"FI$" , R"S 

3390 INPUT S$: IF S$ = CF$ THEN TS - S:S = NC: NE 
XT : GOTO 3410 
3400 NEXT 

3410 PRINT D$"READ"FI$" , R"TS 
3420 INPUT CF$,ND 

3430 FOR S = 1 TO ND: INPUT ND$(S): NEXT : INPUT 
C 

3440 PRINT D$"CLOSE 

3450 DV$ = "": GOTO 4180 

3460 REM ** ELIMINA UNO SCHEDARIO ** 

3470 PRINT : HTAB 12: PRINT "ELIMINA UNO SCHEDARI 
O" 

3480 GOSUB 450: IF NOT TC THEN PRINT : INPUT "P 
REMI <RETURN> ";S$: GOTO 4180 
3490 INVERSE : PRINT "QUALE";: NORMAL : INPUT " S 
CHEDARIO VUOI ELIMINARE? ";S$ 

3500 PRINT 

3510 FL = 0: FOR S = 1 TO NC:FL = FL + (S$ = CF$( 

S)): NEXT : IF NOT FL THEN 4180 
3520 PRINT "PREMI 'D 1 PER ELIMINARE LO SCHEDARIO, 
QUALSIASI ALTRO TASTO PER TORNARE AL M 
ENU: "; 

3530 GET A$: PRINT A$: IF A$ < > "D" THEN 4180 

(Continua) 
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Le subroutine in linguaggio macchina 

ECF.ML consta di tre subroutine separate che sono richiamate dal programma 
con comandi CALL in vari punti. I seguenti CALL attengono alla parte in linguag¬ 
gio macchina del programma: 

CALL 768 Si tratta della subroutine CARD che disegna la scheda. La scheda è 
disegnata scrivendo direttamente con POKE nella memoria dello schermo di te¬ 
sto ASCII 32 (spazio inverso). 

CALL 825 E' la subroutine INPUT che permette di scrivere sulla scheda. La su¬ 
broutine è stata scritta in linguaggio macchina per renderla altamente reattiva alla 
tastiera. 

CALL 958 Questa routine predispone il trasferimento di memoria pulendo il mo¬ 
do decimale e mettendo nella condizione appropriata il registro Y prima di saltare 
con JMP alla routine MOVE del Monitor. I byte alto e basso della vecchia locazio¬ 
ne avvio/fine e della nuova locazione d'avvio per il blocco da trasferire vengono 
scritti con POKE in $3C-$43 alle Iinee100-120 . 

ECF.TEXTCOMP (listato 4) è una breve routine in linguaggio macchina che re¬ 
stituisce i primi nove caratteri di una scheda che non sono spazi nella stringa CC$. 
Ogni carattere della scheda viene controllato. Se non è uno spazio, e non è una 
lettera minuscola, ne viene fatto l'OR con $80 ed è aggiunto a CC$. Le lettere mi¬ 
nuscole vengono prima convertite in maiuscole. L'Indirizzo iniziale della scheda 
viene scritto con POKE (basso/alto) negli indirizzi 251 e 252, e l'indirizzo finale è 
scritto con POKE in 37772 e 37773. CC$ deve sempre risiedere a $4BF7. Que¬ 
sto si ottiene nella linea 1 utilizzando un'operazione di concatenamento per defi¬ 
nirla come prima stringa. 


le basta che premiate <RETURN> 
in risposta ai due punti. Notate che 
il modo comandi dischetto è previ¬ 
sto per i programmatori progrediti 
ed è potenzialmente pericoloso per il 
neofita. Si può combinare un vero 
pasticcio cercando di compiere un'o¬ 
perazione LO AD o SAVE quando si 
è nel modo comandi disco. Consulta¬ 
te il manuale appropriato prima di 
compiere un'operazione su dischetto 
per la quale siete incerti. 

Suggerimenti 
di programmazione 

Ora scegliete l'opzione 7 sul menù 
principale per eliminare dal dischetto 
dati dello Schedario lo schedario IN- 
V.COMP. E' una buona idea tenere 
SCHEDARIO, ECF.ML., ECF.TE- 
XT COMP e CREATE.INDEX su 
un dischetto separato dal file indice e 
dagli schedari. Questa prassi vi aiute¬ 
rà a evitare un errore di dischetto 
completo (DISK FULL) mentre gli 
schedari si riempiono. Per quanto o¬ 


gnuna delle nove sezioni di uno 
schedario possa contenere 35 schede 
può darsi che un normale dischetto 
con il DOS 3.3 non riesca a contene¬ 
re sette intere sezioni di schede. 


C’è qualche modo di aggirare que¬ 
sta limitazione se sono assolutamen¬ 
te necessarie più di sette sezioni per 
schedario. Il modo più facile è quel¬ 
lo di scindere lo schedario in due o 
più schedari. Oppure potete, volen¬ 
do, studiare la possibilità di salvare i 
dati su un dischetto privo di DOS. 
Su Applicando n. 1, a pag. 28, pote¬ 
te trovare istruzioni sul modo in 
cui liberare altri settori sul dischetto 
dati. La subroutine di stampa su car¬ 
ta (linee 200-330) funziona con le 
stampanti Epson, Imagewriter e al¬ 
tre stampanti standard, ma può esse¬ 
re facilmente convertita per l'uso 
con stampanti diverse. 

Introduzione 
dei programmi 

I programmi funzionano senza mo¬ 
difica in DOS 3.3 o in ProDOS, e 
su qualsiasi Apple di 48K o più. Per 
digitare i programmi di Schedario in¬ 
troducete dapprima il programma 
CREA.INDICE visibile nel listato 
1 e salvatelo con il comando: 

SAVE CREA.INDICE 

Digitate il programma principale, 
Schedario, visibile nel listato 2, e 
salvatelo con il comando: 

SAVE SCHEDARIO 

Usate un assembler o il Monitor 
per introdurre il programma in lin¬ 
guaggio macchina ECF.ML dal lista¬ 
to 3 e salvatelo con il comando: 
BSAVE ECF.ML,A$300,L$C4 

Analogamente introducete il codi¬ 
ce di ECF.TEXTCOMP dal listato 


TAVOLAI: 

TASTI CON FUNZIONI SPECIALI 

Combinazione tasti 

Funzione 

<CTRL> C 

Pulisce lo schermo. 

<CTRL> K (o freccia in su) 

Sposta il cursore in su di una riga. 

<CTRL> J (o freccia in giù) Sposta il cursore in giù di una riga. 

Freccia sinistra 

Sposta il cursore a sinistra di un carattere. 

Freccia destra 

Sposta il cursore a destra di un carattere. 

<CTRL> F 

Segnala che in questa scheda si è finito e che si 
è pronti ad archiviarla. 

<CTRL>Q 

Segnala che si può andare al menù senza archi¬ 
viare questa scheda. 

1 tasti shift e caps lock dell'Apple Ile e del Ile funzionano come è logico at¬ 
tendersi. Per l'Apple II Plus (sensa minuscole) vale quanto segue: 

<ESC> 

Passa al maiuscolo per il solo carattere seguente. 

<CTRL> A 

Fissa in maiuscolo fino a <CTRL> S. 

<CTRL>S 

Fissa in minuscolo fino a <CTRL> A. 



TAVOLA 2: MAPPA DELLA MEMORIA PER SCHEDARIO 

Esadecimale Decimale Impiego 



$9600-$FFFF 

38400-65535 

Buffer Applesoft, ProDOS e DOS. 



$9411 -$95FE 

37905-38398 

Scheda provvisoria di lavoro. 

ili 


$938C-$93D5 

37772-37845 

Programma in linguaggio macchina: 
ECF.TEXTCOMP. 





Buffer delle schede di una sezione, pari 
dalla più alta (massimo 35). 

IH 


$53DD-$55CC 21469-21964 

Scheda 3. 



$51 EF-$53DC 

20975-21468 

Scheda 2. 



$5001 -$51 EE 

20481-20974 

Scheda 1. 



$5000 

20480 

Numero delle schede in memoria. 



$4C00 

$4BF7-$4BFF 

19456 

19449-19455 

HIMEM (inizio del buffer GP ProDOS). 
CC$ utilizzata da ECF.TEXTCOMP. 



$801 

$300-$3C3 

2049 

768-963 

Inizio del programma SCHEDARIO. 
Routine in linguaggio macchina: ECF.M 
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3540 PRINT 

3550 PRINT "UN MOMENTO.. . " 

3560 PRINT D$"OPEN"FI$" / L83 

3570 FOR S - 1 TO NC 

3580 PRINT D$"READ"FI$",R"S 

3590 INPUT CF$: IF CF$ = S$ THEN TS = S:S = NC: N 
EXT : GOTO 3610 
3600 NEXT 

3610 PRINT D$"READ"FI$",R"TS 
3620 INPUT SS, ND 

3630 FOR S = 1 TO ND: INPUT ND$(S): NEXT 
3640 PRINT D$"CLOSE" 

3650 FOR S = 1 TO ND 

3660 PRINT D$"BSAVEECF."SS"."S",A20480, LI": PRINT 
D$"DELETEECF."S$"."S 
3670 NEXT 

3680 PRINT D$"OPEN"FI$",L83": GOSUB 4910 
3690 PRINT D$"WRITE"FI$" / R0": PRINT NC - 1 : PRINT 
D$"CLOSE" 

3700 CF$ = "":C = 0:ND = 7:DV$ = "": GOTO 4180 
3710 REM ** COMANDI DISCO ** 

3720 TEXT : HOME : POKE 216,0: ONERR GOTO 3840 
3730 PRINT "COM.DISCO - INTR. COMANDO DISCO O : 

INVERSE : PRINT "RETURN";: NORMAL 
3740 IF PD THEN PRINT " (USA 'PREFIX^- 1 PER CAM 
BIARE DRIVE . ) " 

3750 PRINT DA$: POKE 34,2 

37 60 A$ = "": PRINT 

3770 PRINT CALL - 657 

3780 FOR S = 512 TO 767:S$ = CHR$ ( PEEK (S)> : I 
F S$ < > CHR$ (141) THEN A$ = A$ + S$: NEX 

T : GOTO 3800 
3790 S = 767: NEXT 

3800 IF NOT LEN (A$) THEN DD = PEEK (43624):DS 
= PEEK (43626) : ONERR GOTO 4830 
3810 IF NOT LEN (A$) THEN 4380 
3820 PRINT D$A$ 

3830 GOTO 3760 

3840 CALL BL: PRINT : PRINT "ERRORE DISCO! N. " P 
EEK (222): GOTO 3760 

38 50 REM ** CAMBIA SLOT/DRIVE ** 

3860 PRINT : HTAB 11: PRINT "CAMBIA SLOT/DRIVE" 
3870 VTAB 10: PRINT "(1) SLOT STAMPANTE = "PS 
3880 PRINT :MS = 4 - 2 * PD:MS$ = " (1-3)": IF PD 
THEN MS$ = " ( 1 ) " 


3890 

IF 

NOT 

PD 

THEN 

PRINT 

" (2) 

SLOT 

DISCO = 


"DS 







3900 

PRINT 







3910 

IF 

NOT 

PD 

THEN 

PRINT 

"(3) 

DRIVE 

DISCO - 


"DD 







3920 

IF 

NOT 

PD 

THEN 

PRINT 





3930 PRINT "("MS") MENU PRINCIPALE" 

3940 VTAB 19 

3950 PRINT "AGGIORNA"MS $" O <ESC> ( )";: HTAB 25 
3960 GET S$: PRINT S$;:S = VAL (S$) + MS * (S$ = 
ES$) 

3970 IF S < 1 OR S > MS THEN PRINT CHR$ (7): GO 
TO 3940 

3980 IF S = MS THEN IF PS < > DS THEN 4180 
3990 IF S = MS THEN 4130 
4000 HTAB 1: CALL - 868: HTAB 1 
4010 PRINT "INTRODUCI N. "; 

4020 IF S = 1 THEN PRINT "SLOT STAMPANTE (1-6) : 

4030 IF S = 2 THEN PRINT "SLOT DRIVE (1-6): "; 

4040 IF S - 3 THEN PRINT "DRIVE (1-2): "; 

4050 GET A$: PRINT A$; 

4060 A = VAL (A$) 

4070 IF A < 1 OR A > 6 OR (A > 2 AND S = 3) THEN 
CALL BL: GOTO 4000 
4080 IF S = 1 THEN PS = A 

4090 IF S = 2 THEN DS = A 

4100 IF S = 3 THEN DD = A 

4110 POKE 43624,DD: POKE 43626,DS 
4120 HOME : IF PS < > DS THEN 3850 

4130 VTAB 6: CALL BL: PRINT 

4140 FLASH : PRINT "ERRORE";: NORMAL : PRINT ": S 
LOT STAMPANTE = SLOT DISCO" 

4150 GOTO 3870 
4160 REM ** FINE ** 

4170 TEXT : HOME : END 

4180 HOME : GOTO 4520 

4190 REM ** INIZIALIZZAZIONE ** 

4200 D$ = CHR$ (4):ES$ = CHR$ (27):PD = ( PEEK 
(48896) = 76) 

4210 IF PEEK (768) < > 169 THEN PRINT D$"BLOAD 

ECF.ML" 

422-0 PRINT D$"BLOADECF.TEXTCOMP" 

4230 IF PEEK ( - 1101) = 6 THEN FOR X = 907 TO 
909: POKE X, 234 : NEXT 
4240 MV = 958 :CA = 768:BL = - 198 


4250 FI$ = "ECF.INDEXFILE" 

4260 DIM MEM(13),C$ (35) 

4270 MI = 60:M2 = 62:M3 = 66:M4 = 256 
4 280 DATA ABC, DEF,GHI, JKLM,NOPQ,RST,UVWXYZ 
4290 DATA 1409,1537,1665,1793,1921,1065,1193,132 
1,1449,1577,1705,1833,1961 
4300 FOR S = 1 TO 40 
4310 DA$ = DA$ + "-": NEXT 
4320 PS = 1:ND = 7 
4330 DD = PEEK (43624) 

4340 DS = PEEK (43626) 

4350 FOR S = 1 TO 7: READ S$: NEXT 
4360 FOR S = 1 TO 13: READ MEM(S): NEXT 
4370 ONERR GOTO 4830 
4380 GOSUB 4400 
4390 GOTO 4520 

4400 REM ** MENU PRINCIPALE ** 

4410 TEXT : HOME 

4420 HTAB 10: PRINT LEFT$ (DA$,21) 

4430 INVERSE : HTAB 10: PRINT SPC( 21) 

4440 HTAB 11: PRINT "SCHEDARIO" 

4450 NORMAL : HTAB 10: PRINT LEFT$ (DA$,21) 

4460 HTAB 15: PRINT "DI JIM GANZ" 

4470 PRINT DA$ 

4480 VTAB 23: PRINT DA$; 

4490 PRINT "(C) 1986 BY APPLICANDO & MICROSPARC"; 
4500 POKE 34,5: POKE 35,22 
4510 HOME : RETURN 
4520 VTAB 6: PRINT 

4530 IF PD THEN PRINT D$"PREFIX": INPUT PF$ 

4540 PRINT "MENU DELLE OPZIONI: 

4550 PRINT 

4560 PRINT "1) COMPILA UNA SCHEDA 

4570 PRINT "2) RICERCA SCHEDA/E 

4580 PRINT "3) RIMUOVI SCHEDA/E 

4590 PRINT "4) ORDINA SCHEDE 

4600 PRINT 

4610 PRINT "5) CREA SCHEDARIO 

4620 PRINT "6) SCEGLI SCHEDARIO 

4630 PRINT "7) ELIMINA SCHEDARIO 

4640 PRINT 

4650 PRINT "8) COMANDI DISCO 

4660 PRINT "9) CAMBIA SLOT/DRIVE" 

4670 PRINT "0) FINE" 

4680 VTAB 9: HTAB 24: PRINT "N. SCHEDE: "C 
4690 HTAB 24: PRINT "SPAZIO PER "ND * 35 - C: PRI 
NT 

4700 HTAB 24: PRINT "SLOT STAMPANTE= "PS 
4710 IF PD GOTO 4740 

4720 HTAB 24: PRINT "SLOT DISCO = "DS 

4730 HTAB 24’: PRINT "DRIVE DISCO = "DD: GOTO 47 

50 

4740 HTAB 24: PRINT "PREFIX = ": HTAB 24: P 

RINT PF$ 

4750 VTAB 22: PRINT "SCHEDARIO ATTIVO: ";: IF NO 
T LEN (CFS) THEN PRINT CHR$ (91)"NESSUNO) 
";: GOTO 4770 

4760 PRINT CHRS (34)CF$CHR$ (34); 

4770 VTAB 19: HTAB 28: PRINT "SCEGLI ( )";: HTAB 
36 

4780 S = FRE (S) : POKE - 16368,0 

4790 GET S$:S = VAL (S$): PRINT SS; 

4800 IF (S$ < "0" OR S$ > "9") OR ( NOT LEN (CFS 
) AND S AND S < 5) OR ( NOT C AND (S > 1 AND 
S < 5)) THEN CALL BL: GOTO 4770 
4810 HOME 

4820 ON S + 1 GOTO 4160,690,1450,2110,2450,2990,3 
290,3460,3710,3850 
4830 REM ** ROUTINE ERRORI ** 

4840 CALL - 3288: TEXT : HOME : NORMAL 
4850 CALL BL: PRINT 

4860 PRINT D$"CLOSE": IF PEEK (222) = 6 AND VF = 
1 THEN PRINT "IL FILE INDICE NON E' SU QUE 
STO DISCO.": PRINT "INSERISCI IL DISCO DATI 
GIUSTO O SMETTI": PRINT "ED ESEGUI 'CREA.IND 
ICE* PER ISTITUIRE IL FILE INDICE.":VF = 0 
: GOTO 4890 

4870 IF PEEK (222) = 255 GOTO 4380 
4880 PRINT "ERRORE N." PEEK (222)" ALLA LINEA " P 
EEK (218) + PEEK (219) * 256 
4890 PRINT : PRINT "UN TASTO QUALSIASI PER TORNAR 
E AL MENU PRINCIPALE";: GET Z$: PRINT : GOTO 
4370 

4900 REM ** SPOSTA GLI SCHEDARI** 

4910 ON TS « NC GOTO 4930: FOR S = TS + 1 TO NC: 

PRINT D$"READ"FI$",R"S: INPUT S$,ND: FOR I - 
1 TO ND: INPUT DV$(I): NEXT 
4920 PRINT D$"WRITE"FI$",R"S - 1: PRINT SS: PRINT 
ND: FOR I = 1 TO ND: PRINT DV$(I): NEXT : P 
RINT 0: NEXT S 
4930 RETURN 
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Listato 3 


SOURCE FILE: ECF.ML.S 


0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 


ECF.ML 
BY JIM GANZ 
COPYRIGHT (C) 1986 
BY APPLICANDO & 
MICROSPARC, INC 


* TOOL KIT ASSEMBLER 


DOS 3.3 


ProDOS 


Apple Ile 


Apple Ile 


0000: 



10 

★ 




-NEXT 

OBJECT FILE NAME IS 

ECF.ML 


0300: 



11 


ORG 

$300 


0300: 



12 

★ 




0300:A9 

20 


13 


LDA 

#$20 

; inverse space 

0302:A0 

FF 


14 


LDY 

#$FF 


0304:C8 



15 

LOOP1 

INY 


;draw tab 

0305:C0 

0A 


16 


CPY 

#$0A 


0307 :F0 

09 


17 


BEQ 

CONT 


0309:99 

00 

04 

18 


STA 

$400,Y 


030C:99 

80 

04 

19 


STA 

$480,Y 


030F:4C 

04 

03 

20 


JMP 

LOOP1 


0312 :A0 

FF 


21 

CONT 

LDY 

#$FF 


0314:C8 



22 

LOOP 2 

INY 


;draw card 

0315:C0 

50 


23 


CPY 

#$50 

; compare to 80 

0317 :F0 

1F 


24 


BEQ 

END 


0319:99 

00 

05 

25 


STA 

$500,Y 


031C: 99 

80 

05 

26 


STA 

$580,Y 


031F : 99 

00 

06 

27 


STA 

$600,Y 


0322:99 

80 

06 

28 


STA 

$680,Y 


0325:99 

00 

07 

29 


STA 

$700,Y 


0328:99 

80 

07 

30 


STA 

$780,Y 


032B:99 

28 

04 

31 


STA 

$428,Y 


032E:C0 

28 


32 


CPY 

#$28 


0330 :B0 

E2 


33 


BCS 

LOOP 2 


0332:99 

A8 

04 

34 


STA 

$4A8,Y 


0335:4C 

14 

03 

35 


JMP 

LOOP 2 


0338:60 



36 

END 

RTS 



0339: 



37 

* 




FB5B: 



38 

TABV 

EQU 

$FB5B 


FBF4 : 



39 

AD VANCE 

EQU 

$FBF4 


FC1A: 



40 

CURSUP 

EQU 

$FC1A 


FDF0 : 



41 

COUT1 

EQU 

$FDF0 


FD0C: 



42 

RDKEY 

EQU 

$FD0C 


0009: 



43 

CFLAG 

EQU 

$09 


FE80 : 



44 

SETINV 

EQU 

$FE80 


FE84 : 



45 

SETNORM 

EQU 

$FE84 


0339: 



46 

★ 




0339:A0 

93 


47 

SETUP 

LDY 

#$93 


033B:84 

09 


48 


STY 

CFLAG 

;set lowercase 

033D:20 

OC 

FD 

49 

START 

JSR 

RDKEY 

; input in ACC 

0340:C9 

91 


50 


CMP 

#$91 

;CTRL-Q key 

0342 :F0 

66 


51 


BEQ 

ESCAPE 

0344:C9 

86 


52 


CMP 

#$86 

;CTRL-F key 

0346:F0 

62 


53 


BEQ 

ESCAPE 


0348:C9 

83 


54 


CMP 

#$83 

;CTRL-C key 

034A:F0 

61 


55 


BEQ 

CLEAR 


034C:C9 

8B 


56 


CMP 

#$8B 

;CTRL-K key 

034E:F0 

11 


57 


BEQ 

UP 


0350:C9 

81 


58 


CMP 

#$81 

;CTRL-A key 

0352 :F0 

08 


59 


BEQ 

CASE 


0354:C9 

93 


60 


CMP 

#$93 

;CTRL-S key 

0356:F0 

04 


61 


BEQ 

CASE 


0358 :C9 

9B 


62 


CMP 

#$9B 

; ESC key 

035A:D0 

0B 


63 


BNE 

CHK 


035C:85 

09 


64 

CASE 

STA 

CFLAG 

;set shift flag 

035E:4C 

3D 

03 

65 


JMP 

START 


0361:20 

1A 

FC 

66 

UP 

JSR 

CURSUP 

;cursor up 1 line 

0364:4C 

3D 

03 

67 


JMP 

START 


0367:A6 

25 


68 

CHK 

LDX 

$25 

;CV 

0369 :E0 

0F 


69 


CPX 

#$0F 

;line 15? 

036B:D0 

10 


70 


BNE 

OK 


036D:A6 

24 


71 


LDX 

$24 

; CH 

036F:E0 

25 


72 


CPX 

#$25 


0371:90 

02 


73 


BCC 

CNTNUE 


0373 :C6 

24 


74 


DEC 

$24 


0375 :C9 

8D 


75 

CNTNUE 

CMP 

#$8D 

; RETURN char? 

0377 :F0 

C4 


76 


BEQ 

START 


0379:C9 

8A 


77 


CMP 

#$8A 

;CTRL-J key? 

037B:F0 

CO 


78 


BEQ 

START 


037D:C9 

95 


79 

OK 

CMP 

#$95 

;right arrow? 

037F:D0 

06 


80 


BNE 

OUTPUT 


0381:20 

F4 

FB 

81 


JSR 

ADVANCE 

;advance cursor 

0384: 4C 

3D 

03 

82 


JMP 

START 


0387:C9 

CI 


83 

OUTPUT 

CMP 

#$C1 

;is key < "A"? 

0389:B0 

06 


84 


BCS 

OUTPUT1 

;if not, go on 

038B:20 

80 

FE 

85 

LOWER 

JSR 

SETINV 

;yes, so inverse 

038E:4C 

9A 

03 

86 


JMP 

PRINT 

;go to COUT1 


4 e salvatelo con il comando: 
BSAVE ECF.TEXTCOMP, A$938 
C,L$4A 

Per avere aiuto nell’introduzione 
dei listati di Applicando potete con¬ 
sultare la rubrica Per chi comincia, 
nelle ultime pagine di questo nu¬ 
mero. 

Come funziona 
Schedario 

Il programma principale di Scheda¬ 
rio (listato 2) è scritto in maniera 
modulare. Esso contiene una breve 
descrizione della funzione di ciascun 
modulo in un REM all’inizio di o- 
gni sezione. Questa struttura conferi¬ 
sce al programma una grande mano¬ 
vrabilità e rende relativamente facili 
le modifiche, in quanto non è diffici¬ 
le trovare una specifica sezione del 
codice. Le routine richiamate più 
spesso sono situate aU'inizio del pro¬ 
gramma (linee 100-680) in modo 
che possano essere localizzate rapida¬ 
mente dal computer durante un GO- 
SUB. Per individuare le sezioni prin¬ 
cipali vedete l'istruzione ON/GOTO 
a linea 4820. Un modulo che potete 
usare, volendo, nei vostri program¬ 
mi è la routine del modo comandi di- 


(Continua) 


Il file indice e la memoria 


Il file di housekeeping dello SCHEDARIO, E- 
CF.INDEXFILE, è un file di testo ad accesso ca¬ 
suale con una lunghezza di record di 83. Il recor- 
d 0 contiene il numero delle schede che si trova¬ 
no nel file indice. Il programma impiega un meto¬ 
do non propriamente ortodosso di immagazzina¬ 
mento dati. Le schede sono inserite direttamen¬ 
te in memoria con POKE e ciascuna di esse oc¬ 
cupa un blocco di 494 byte (38 colonne per 13 ri¬ 
ghe), qualunque sia la quantità di testo che con¬ 
tiene. 

Questi blocchi di memoria vengono manipolati 
facilmente per immagazzinare, eliminare, modifi¬ 
care e via dicendo, perchè sono di lunghezza uni¬ 
forme e perciò prontamente intercambiabili. Per 
esempio quando una scheda viene eliminata da 
una sezione l'ultima scheda di quella sezione vie¬ 
ne trasferita nella vecchia posizione della sche¬ 
da uscente; la perfetta sistemazione è garantita. 

La remora principale dell'impiego di questo me¬ 
todo di immagazzinamento dei dati è che impiega 
una gran quantità di memoria. Si deve caricare in 
memoria l’intero blocco di byte per accedere a un 
solo record. Così il fattore di limitazione diventa 
la quantità di memoria disponibile. E' qui che risul¬ 
ta comoda una mappa (tavola 2), che mostra co¬ 
me le informazioni siano organizzate nella memo¬ 
ria. Questa carta potrebbe dimostrarsi utile qua¬ 
lora si volesse modificare Schedario. 
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03 91 :A4 

09 


87 

OUTPUT1 

LDY 

CFLAG 

; check shift flg 

03 93 : CO 

93 


88 


CPY 

#$93 

;does FLAG=CTRL-S ? 

03 95 :F0 

F4 


89 


BEQ 

LOWER 

;if yes, inverse 

0397:20 

84 

FE 

90 


JSR 

SETNORM 

; ESC or CTRL-A 

03 9A:20 

F0 

FD 

91 

PRINT 

JSR 

COUT1 

;print char 

03 9D:A4 

09 


92 


LDY 

CFLAG 


039F:C0 

9B 


93 


CPY 

#$9B 

;shift? 

03A1:D0 

9A 


94 


BNE 

START 


03A3:A0 

93 


95 


LDY 

#$93 


03A5:84 

09 


96 


STY 

CFLAG 


03A7:4C 

3D 

03 

97 


JMP 

START 


03AA:85 

06 


98 

ESCAPE 

STA 

$06 

; f lag 

03AC: 60 



99 


RTS 



03AD:A9 

20 


100 

CLEAR 

LDA 

#$20 

;clear card 

03AF: 20 

12 

03 

101 


JSR 

CONT 


03B2:A9 

03 


102 


LDA 

#$03 


03B4:20 

5B 

FB 

103 


JSR 

TABV 

;store ACC in CV 

03B7:A9 

00 


104 


LDA 

#$00 


03B9:85 

24 


105 


STA 

$24 

; CH 

03BB:4C 

3D 

03 

106 


JMP 

START 


03BE: 



107 

* 




03BE : 



108 

* Condition 

for Memory 

Move 

03BE : 



109 

* 




FE2C : 



110 

MOVE 

EQU 

$FE2C 


03BE:D8 



111 


CLD 



03BF:A0 

00 


112 


LDY 

#$0 


03C1:4C 

2C 

FE 

113 


JMP 

MOVE 

;CALL-468 


*** SUCCESSFUL ASSEMBLY: NO ERRORS 


sco. Questo modulo non occupa 
molto spazio e dà maggiore libertà 
durante l’esecuzione di un pro¬ 
gramma. Le linee 3720-3750 puli¬ 
scono lo schermo e visualizzano nel¬ 
le righe in alto un titolo identificati¬ 
vo. Il comando POKE 34,2 imposta 
la riga più alta della finestra di testo 
a proteggere l'annuncio dallo scorri¬ 
mento in su fuori dello schermo. A 
linea 3770 CALL -657 immette il 
comando disco (sono ammessi virgo¬ 
le e due punti) e immagazzina il te¬ 
sto nel buffer di input a $200-$2FF. 
Questa stringa di input è costruita a 
linea 3780 ed è successivamente 
stampata sullo schermo a linea 
3820, preceduta da un <CTRL>D. 
Da questo punto in poi il resto lo 
fanno il DOS o il ProDOS. 

Se volete inserire la routine del di- 


Listato 4 


SOURCE FILE: 
0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 


ECF.TEXTCOMP.S 

1 *- 

ECF.TEXTCOMP 
BY LOREN W. WRIGHT 
COPYRIGHT (C) 1986 
BY APPLICANDO & 
MICROSPARC, INC 


DOS 3.3 


ProDOS 


Apple Ile 


Apple Ile 


* TOOL KIT ASSEMBLER 


0000: 



10 * 



j 

00FB : 



11 PNTR 

EQU 

$FB 

;POKED BY BASIC 1 

4BF7: 



12 CCSTR 

EQU 

$4BF7 

;CC$ IS 9 BELOW HIMEM=$4C00 j 

0000: 



13 * 




-NEXT 

OBJECT FILE NAME IS 

ECF.TEXTCOMP J 

938C : 



14 

ORG 

$938C 


938C: 



15 * 




938C:FF 

FF 


16 ENDADDR 

DDB 

$FFFF 

;POKED BY BASIC ( 

938E: 



17 * 



i 

938E:A2 

08 


18 

LDX 

#8 

;CLEAR CC$ 

9390:A9 

20 


19 

LDA 

#$20 

] 

9392:9D 

FI 

4B 

20 CLOOP 

STA 

CCSTR,X 

( 

9395 :CA 



21 

DEX 



9396:D0 

FA 


22 

BNE 

CLOOP 


9398 :A0 

00 


23 

LDY 

#0 


939A:B1 

FB 


24 GETCHAR 

LDA 

(PNTR) , Y 

;GET CHAR FROM CARD . 

939C:29 

7F 


25 

AND 

#$7F 


939E:C9 

61 


26 

CMP 

#$61 

] 

93A0:90 

04 


27 

BCC 

NI 


93A2:29 

DF 


28 

AND 

#$DF 

;CONVERT LC TO UC 

93A4: DO 

OC 


29 

BNE 

N2 

( 

93A6:C9 

40 


30 NI 

CMP 

#$40 

l 

93A8-.B0 

08 


31 

BCS 

N2 


93AA:C9 

20 


32 

CMP 

#$20 

] 

93AC:F0 

0E 


33 

BEQ 

NEXT 

;SKIP SPACES ] 

93AE:B0 

02 


34 

BCS 

N2 


93B0:09 

40 


35 

ORA 

#$40 


93B2:09 

80 


36 N2 

ORA 

#$80 


93B4:9D 

FI 

4B 

37 

STA 

CCSTR,X 

;STORE CHAR IN CCS ' 

93B7:E8 



38 

INX 


;INCREMENT POS IN CCS J 

93B8:E0 

09 


39 

CPX 

#$09 


93BA:F0 

19 


40 

BEQ 

DONE 

1 

93BC:A5 

FB 


41 NEXT 

LDA 

PNTR 

;INCREMENT CARD POINTER 

93BE:18 



42 

CLC 


( 

93BF: 69 

01 


43 

ADC 

#$01 

] 

93C1:85 

FB 


44 

STA 

PNTR 


93C3:A5 

FC 


45 

LDA 

PNTR+1 


93C5: 69 

00 


46 

ADC 

#$00 


93C7:85 

FC 


47 

STA 

PNTR+1 


93C9: CD 

8D 

93 

48 

CMP 

ENDADDR+1 

;DONE? 

93CC:D0 

CC 


49 

BNE 

GETCHAR 


93CE:A5 

FB 


50 

LDA 

PNTR 


93D0: CD 

8C 

93 

51 

CMP 

ENDADDR 

;DONE ? 

93D3: DO 

C5 


52 

BNE 

GETCHAR 


93D5:60 



53 DONE 

RTS 




sco adottate queste regole: 

1 . Definite alcune variabili pri¬ 
ma di richiamare la routine deldisco: 
D$ è definita come CHR$(4), BL co¬ 
me -198 (un CALL a BL fa emettere 
ilbip dell'altoparlante) e DA$ come 
stringa di quaranta lineette. 

2 . La routine del disco predispone 
la sua trappola d'errori a linea 3720 . 
O cancellate questa trappola (facendo 


di 


un'istruzione DATA a linea 


*** SUCCESSFUL ASSEMBLY: NO ERRORS 


Questo programma è disponibile 
su dischetto. L'elenco, i prezzi 
e le modalità d'ordine di questo e 
degli altri dischetti disponibili sono | 
riportati nella rubrica Disk Service. 


© By Nibble e Applicando 
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■ • A\ idee di programmi, 

Le scorte sono limitate. 
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Gratis, 
se ti abboni 

subito! 


1985 - Lire 
lo: per non 
» sono in bal- 
nportanti • 
| istrophobia, 
res • Tutti i 
^legamento 
utenti • I 
» legale: un 
avvocati 
Per cari- 
1 program- 
il di sopra 
,hina • Ap- 
accoppia- 
liovimenti 
Altri cin- 
lia una se¬ 
rafica ad 
Ma- 
Vord • 
Togram- 


20 - ottobre 1985 - Lire 
7.000 • Salute: come ricorda¬ 
re tutte le malattie e registra¬ 
re le spese mediche • Come 
far parlare l’Apple II • Oro¬ 
scopo personalizzatocongra- 
fici della carta del cielo nata¬ 
le • Stabilizzatori di corrente 
per non perdere ore di prezio¬ 
so lavoro • Dieci one-liner • 
Basic Writer consente il col- 
legamento diretto tra l'am¬ 
biente di elaborazione testo 
e l’ambiente Basic • Come 
controllare il valore di una 
variabile per individuare gli 
errori • Ecco la seconda pun¬ 
tata sull'uso della grafica ad 
altissima risoluzione • Spe¬ 
ciale Appliscuola: simulazio¬ 
ne di un equilibrio • Macin¬ 
tosh: nutrita hit parade del 
mese. 


21 - novembre 1985 - Lire 
7.000 • AppliArchitect: per 
arredare la casa con precisio¬ 
ne direttamente sul video • 
Grand Prix: una corsa d’au¬ 
to stile arcade in Applesoft • 
Unmodoperaccederediretta- 
mente alla routine di stampa 
bypassando tutto il program¬ 
ma • Controllo diretto del 
cursore • Altri dieci one-li¬ 
ner • Per Apple II un nuovo, 
potente foglio elettronico in¬ 
tegrato con grafici e data ma¬ 
nagement • Prima puntata di 
un corso di programmazione 
avanzata in Basic • Terzo ar¬ 
ticolo sulla doppia Hi-Res: 
le figure a blocchi • Macinto¬ 
sh: hard disk a confronto • I 
pacchetti di contabilità gene¬ 
rale o forfettaria • Hit para¬ 
de del mese. 


22-dicembre 1985/gennaio 
1986 - Lire 7.000 • La rasse¬ 
gna di tutti i tipi di stampan¬ 
te, con caratteristiche tecni¬ 
che, prestazioni e accessori 

• Memodesk: non la solita a- 
genda ma un calendario intel- 
ligente da scrivania • Simula¬ 
zione in Hi-Res del BlackJa- 
ck • Due programmi per i 
dentisti • Programmazione a- 
vanzata in Basic (2) • Effetti 
speciali: Spinner consente 
lo scorrimento orizzontale di 
una stringa • Dieci one-liner 

• Calendario perpetuo per 
Apple e Mac • Quarta punta¬ 
ta di grafica: animazione • 
Appliscuola: il numero di A- 
vogadro • Macintosh: come 
stampare un catalogo • Hit 
parade con tantissimi nuovi 
programmi. 


23 - febbraio 1986 - Lire 
7.000 • Speciale editoria: 
Macintosh, Apple II, Laser¬ 
Writer e tutto il software ne¬ 
cessario per creare un centro 
stampa autonomo • Come 
programmare il mouse dell’¬ 
Apple II • Guerre stellari • 
Harmony :data-base Jext-edi- 
tor e generatore di istogram¬ 
mi • Come far scorrere 18 
immagini sul video, per un 
effetto sorprendente • Grafi¬ 
ca: scorrimento orizzontale 
di una stringa sul video • 
Corso avanzato di Basic (3) 
• Sette one-liner • Scuola: 
resoconto su Pisa • Funzio¬ 
ni e grafici tridimensionali • 
La tavola degli elementi chi¬ 
mici ‘Macintosh: La compa¬ 
tibilità Mac-IBM • Tutto sul 
CFS • Lliit-parade del mese. 








... ma anche un 



3 - settembre/ottobre 1983 
- Lire 7.000 • Un program¬ 
ma di Data Base accessibile 
a tutti • Logo in italiano • U- 
na scheda e una telecamera e 
il tuo Apple vede • Etichette 
spiritose o bizzarre • Piccoli 
editori, club e associazioni 
possono raggiungere soci e 
abbonati facilmente • Equo 
canone con VisiCalc per pa¬ 
droni e inquilini • Una routi¬ 
ne e la Epson M 80 stampa 
i grafici • Seconda puntata 
del corso di Basic • Con un 
uso accorto del WPL ecco 
pronto un documento di più 
pagine, personalizzato, con 
decine di opzioni diverse • 
Dadi e punti. 


4 - novembre/dicembre 
1983 - Lire 7.000 • Tre sche¬ 
de, una tastiera e un po' di 
software: il computer diven¬ 
ta un'intera orchestra • Piano¬ 
forte, organo e violino in Pa¬ 
scal • Per imparare a leggere 
più velocemente (e fare eser¬ 
cizio di inglese) • Elogio del 
VisiDex • Rompiquindici • 
Per chi ha dischetti del Siste¬ 
ma Pascal, una rassegna del¬ 
le possibilità offerte e dei co¬ 
mandi a disposizione • Il pro¬ 
gramma Dedalus - Terza pun¬ 
tata del Basic • Guida ragio¬ 
nata dei software in commer¬ 
cio per la gestione condomi¬ 
niale • Una numeric keypad 
in software. 


5 -gennaio/febbraio 1984- 
Lire 7.000 • La tecnologia 
del mouse applicata all'Ap¬ 
ple II • In memoria i vostri 
impegni di un anno intero • 
Un programma per la conta¬ 
bilità semplificata • Un gio¬ 
co per due, nel quale si dan¬ 
no battaglia cannoni di gros¬ 
so calibro • Investor in porta¬ 
foglio: uno dei migliori pro¬ 
grammi che fornisce in tem¬ 
po reale il quadro esatto di 
come vanno i propri investi¬ 
menti finanziari; ideale per 
la gestione del proprio porta¬ 
foglio titoli • Quarta puntata 
del Basic • Il gioco delle frec¬ 
cette in versione elettronica 
• Prima puntata del Pascal. 



6 - marzo/aprile 1984 - Li¬ 
re 7.000 • Presentazione di 
Appleworks (Tre per te) • 
Anteprima di Apple Ile • Ti¬ 
toli di stato, cartelle fondia¬ 
rie, obbligazioni: l'Apple 
per difendere i risparmi • Un 
mostro tira l'altro: riuscirete 
a mangiarli tutti? • Il gioco 
dello Stress: • Come localiz¬ 
zare parti di un programma 
velocemente con LINEFIN- 
DER • Seconda puntata del 
Pascal • L’Applesoft per 
semplificare l'impaccamento 
dei record e il recupero delle 
informazioni • Il dump della 
pagina grafica da Apple II a 
una stampante semigrafica. 



7 - maggio/giugno 1984 - 
Lire 7.000 • ProDOS: il 
nuovo sistema operativo 
con la possibilità di usare il 
ProFile e il Mouse • Com¬ 
puter e pennello: Apple e i 
suoi capolavori- Topolino 
aiuta i bambini a riconosce¬ 
re i numeri • Programmi top 
secret: impedite ai curiosi di 
ficcare il naso nei vostri pro¬ 
grammi • Una cassetta di sal¬ 
vataggio per registrare i pro¬ 
grammi • Grafica e animazio¬ 
ne: sesta puntata dell'Apple- 
soft • L’Apple tiene in ordi¬ 
ne l'archivio dei dischi • 
Aiuto: un programma che 
consente di trovare subito 
gli errori di battitura e di cor¬ 
reggerli tutti insieme. 


_ _— - ■ Sé? 


applicando 



9396 : DO 
9398 :A0 

FA 

00 


23 


LDY 


93 9A.-B1 

FB 


24 

GETCHAR 

LDA 

(PNTR) , Y 

939C: 29 

7F 


25 


AND 

#$7F 

939E:C9 

61 


26 


CMP 

#$61 

93A0:90 

04 


27 


BCC 

NI 

93A2:29 

DF 


28 


AND 

#$DF 

93A4: DO 

OC 


29 


BNE 

N2 

93A6:C9 

40 


30 

NI 

CMP 

#$40 

93A8:B0 

08 


31 


BCS 

N2 

93AA:C9 

20 


32 


CMP 

#$20 

93AC:F0 

0E 


33 


BEQ 

NEXT 

93AE:B0 

02 


34 


BCS 

N2 

93B0:09 

40 


35 


ORA 

#$40 

93B2:09 

80 


36 

N2 

ORA 

#$80 

93B4:9D 

F7 

4B 

37 


STA 

CCSTR,X 

93B7:E8 



38 


INX 


93B8:E0 

09 


39 


CPX 

#$09 

93BA:F0 

19 


40 


BEQ 

DONE 

93BC:A5 

FB 


41 

NEXT 

LDA 

PNTR 

93BE:18 



42 


CLC 


93BF: 69 

01 


43 


ADC 

#$01 

93C1:85 

FB 


44 


STA 

PNTR 

93C3:A5 

FC 


45 


LDA 

PNTR+1 

93C5: 69 

00 


46 


ADC 

#$00 

93C7:85 

FC 


47 


STA 

PNTR+1 

93C9: CD 

8D 

93 

48 


CMP 

ENDADDR+1 

93CC:D0 

CC 


49 


BNE 

GETCHAR 

93CE:A5 

FB 


50 


LDA 

PNTR 

93D0: CD 

8C 

93 

51 


CMP 

ENDADDR 

93D3:D0 

C5 


52 


BNE 

GETCHAR 

93D5: 60 



53 

DONE 

RTS 



ConcorsoVola 

^ gratis 
California 


;CONVERT LC TO UC 


;SKIP SPACES 


;STORE CHAR IN CC$ 

;INCREMENT POS IN CCS 


;INCREMENT CARD POINTER 


;DONE ? 


SUCCESSFUL ASSEMBLY: NO ERRORS 




mero 

finito come uno a 
questo valore può essere 
con l’opzione 9 è però 
niente fare in modo che 
ma vada fin dall’inizio per 
valore appropriato. Inoltre i ennaio/febbraio 
alfabetici ordinari sono merr? 7 - 000 • Per im - 


in un’istruzione DATA % 


Bridge 


o perfezionarsi 


4280. Cambiate pure queste ar azione; il com- 
te se lo desiderate, ma ran il punteggio e fa 
che ce ne devono essere setté rio * MicroCaic, 
na non più lunga di sei caraf^ r “P“^ 

a disposizione un 
_400 caselle • Un 


Questo programma è dis|^;j^^ lce ed e “ 

.. \ y , .'per imparare a usa- 

su dischetto. L'elenco, Works e VisiCalc: 

e le modalità d'ordine di r-rticolo un modello 

degli altri dischetti dìspon^ f ^P^ 

riportati nella rubrica Diskr l'editing dei pro- 

* Per aggiungere a 


ramma esistente del- 


:ioni DATA • Specia- 
© By Nibble e App//ìi scuola: animazione 


rotazione. 
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passato 


: co 'tronìc a - ùffiZ me a: 1 



14 - marzo 1985 - Lire 
7.000 • Un computer per 
meccanico, che ricorda tutte 
le operazioni di manutenzio¬ 
ne • Per realizzare un poster 
gigante • Perricreare sull’Ap¬ 
ple qualunque percorso di 
Golf • Mentre imparate Ap- 
ple\Vorks e VisiCalc potete 
costruire un modello per 
compilare la nota spese • 
Tre programmi: per impara¬ 
re a contare in età prescola¬ 
stica, per ripassare le tabelli- 
ne, per migliorare l’ortogra- 
fia • Appli scuola: stima dei 
frutteti con l’estimo • Macin¬ 
tosh: Comando per coman¬ 
do, potete disegnare con uno 
dei maggiori esperti del mon¬ 
do • Grafici a colonna, a tor¬ 
ta, a linee: ecco Mac Chart • 
Hit parade del mese. 



19 - settembre 1985-Lire 
7.000 • Oracolo: per non 
sbagliare quando sono in bal¬ 
lo decisioni importanti • 
Digger e vUaustrophobia, 
due giochi in hi-res • Tutti i 
segreti per un collegamento 
in rete per 5-25 utenti • I 
conti dello studio legale: un 
programma per avvocati 
scritto da avvocati • Per cari¬ 
care in memoria un program¬ 
ma in Applesoft al di sopra 
di un codice macchina • Ap¬ 
ple Ile più mouse: accoppia¬ 
ta vincente per i movimenti 
cassa-magazzino • Altri cin¬ 
que one-liner • Inizia una se¬ 
rie di articoli sulla grafica ad 
altissima risoluzione • Ma¬ 
cintosh: MicrosoftWord • 
Tutto il catalogo di program¬ 
mi e accessori. 



15 - aprile 1985 - Lire 
7.000 • Non più ffoglietti 
sparsi ovunque, con le vo¬ 
stre preziose ricette di cuci¬ 
na: Apple vi aiuterà • Per 
scegliere se la prossima auto¬ 
mobile sarà diesel o a benzi¬ 
na • Un repertorio di suoni 
e rumori per colonna sonora 
ai vostri programmi • A vo¬ 
lano con l'Apple • Un pro¬ 
gramma per sfruttare le quali- 
tà grafiche dell’Apple • Un 
menù professionale per i vo¬ 
stri programmi: • Corso Ap¬ 
pleWorks: il data base • Ap- 
pliscuola: un diagramma car¬ 
tesiano per il calcolo del 
massimo comune divisore, e 
un programma di chimica • 
Macintosh: Fumetti con 
Mac • Magic e File Vision • 
LTiit parade del mese. 



20 - ottobre 1985 - Lire 
7.000 • Salute: come ricorda¬ 
re tutte le malattie e registra¬ 
re le spese mediche • Come 
far parlare l’Apple II • Oro¬ 
scopo personal izzatocongra- 
fici della carta del cielo nata¬ 
le • Stabilizzatori di corrente 
per non perdere ore di prezio¬ 
so lavoro • Dieci one-liner • 
Basic Writer consente il col- 
legamento diretto tra l’am¬ 
biente di elaborazione testo 
e l’ambiente Basic • Come 
controllare il valore di una 
variabile per individuare gli 
errori • Ecco la seconda pun¬ 
tata sull'uso della grafica ad 
altissima risoluzione • Spe¬ 
ciale Appliscuola: simulazio¬ 
ne di un equilibrio • Macin¬ 
tosh: nutrita hit parade del 
mese. 



16 - maggio 1985 - Lire 
7.000 • Un sistema di data 
base nutrizionale per perso¬ 
nalizzare una dieta bilancia¬ 
ta, a lunga o a breve scaden¬ 
za • Ancora un data base nel 
corso AppleWorks: l'agenda 
telefonica • Pompieri: un 
gioco d'azione e abilità • Un 
programma capace di trasfor¬ 
mare l'Apple II in un fedele 
e preciso timer • Una tavola 
di disegno per emulare i più 
potenti programmi di 
CAD/CAM • Come scrivere 
un programma compiuto su 
una linea sola. Ecco i primi 
venti one-liner • Una utili¬ 
ty che facilita il lavoro di 
correzione di un listato, ren¬ 
dendone più comoda la lettu¬ 
ra • Macintosh: Jazz • Hit pa¬ 
rade del mese. 



21 - novembre 1985 - Lire 
7.000 • AppliArchitect: per 
arredare la casa con precisio¬ 
ne direttamente sul video • 
Grand Prix: una corsa d'au¬ 
to stile arcade in Applesoft • 
Unmodoperaccederediretta- 
mente alla routine di stampa 
bypassando tutto il program¬ 
ma • Controllo diretto del 
cursore • Altri dieci one-li¬ 
ner • Per Apple II un nuovo, 
potente foglio elettronico in¬ 
tegrato con grafici e data ma¬ 
nagement • Prima puntata di 
un corso di programmazione 
avanzata in Basic • Terzo ar¬ 
ticolo sulla doppia Hi-Res: 
le figure a blocchi • Macinto¬ 
sh: hard disk a confronto • I 
pacchetti di contabilità gene¬ 
rale o forfettaria • Hit para¬ 
de del mese. 



17 - giugno 1985 - Lire 
7.000 • Le principali nozio¬ 
ni, un dizionario nautico e 
due simulatori di regate per 
entrare nel mondo della vela 

• L'Apple diventa una sofisti¬ 
cata calcolatrice RPN • Una 
piantina per pianificare qua¬ 
lunque itinerario stradale a- 
mericanotraben 171 città di¬ 
verse • Uragano sulla città: 
(gioco in hi-res) • Una ap¬ 
plicazione AppleWorks per 
la gestione di un negozio • 
Un programma per eseguire 
analisi di carattere statistico 
con la possibilità di chiedere 
previsioni • Sparate a vista 
(gioco in hi-res) • Continua 
la serie degli One-liner, i 
programmi su una linea sola 

• Macintosh: SmoothTalker 

• Hit parade del mese. 



18 - luglio/agosto 1985 - 
Lire 7.000 • La versione per 
Apple di Trivia, il gioco che 
ha stregato mezzo mondo • 
Continua il corso di Apple 
Works con le funzioni del 
word processor • Una utili¬ 
ty per personalizzare il bip 
segnala errori • Un program¬ 
ma per seguire l'andamento 
dei bioritmi mese per mese • 
Per calcolare i consumi del¬ 
l'auto • Come esaminare l'an¬ 
damento di un grafico di una 
funzione • Ecco come avere 
scritte perfettamente centrate 
su video e stampante • Pro- 
DOS: una lezione sotto for¬ 
ma di utility per imparare a 
programmare • Continua la 
serie degli one-liner • Macin¬ 
tosh: My Office • MacHar- 
dware: TliunderScan. 



22-dicembre 1985/gennaio 
1986 - Lire 7.000 • La rasse¬ 
gna di tutti i tipi di stampan¬ 
te, con caratteristiche tecni¬ 
che, prestazioni e accessori 

• Memodesk: non la solita a- 
genda ma un calendario intel¬ 
ligente da scrivania • Simula¬ 
zione in Hi-Res del BlackJa- 
ck • Due programmi per i 
dentisti • Programmazione a- 
vanzata in Basic (2) • Effetti 
speciali: Spinner consente 
lo scorrimento orizzontale di 
una stringa • Dieci one-liner 

• Calendario perpetuo per 
Apple e Mac • Quarta punta¬ 
ta di grafica: animazione • 
Appliscuola: il numero di A- 
vogadro • Macintosh: come 
stampare un catalogo • Hit 
parade con tantissimi nuovi 
programmi. 



23 - febbraio 1986 - Lire 
7.000 • Speciale editoria: 
Macintosh, Apple II, Laser¬ 
Writer e tutto il software ne¬ 
cessario per creare un centro 
stampa autonomo • Come 
programmare il mouse dell'¬ 
Apple II • Guerre stellari • 
Harmony:data-basefext-edi- 
tor e generatore di istogram¬ 
mi • Come far scorrere 18 
immagini sul video, per un 
effetto sorprendente • Grafi¬ 
ca: scorrimento orizzontale 
di una stringa sul video • 
Corso avanzato di Basic (3) 
• Sette one-liner • Scuola: 
resoconto su Pisa • Funzio¬ 
ni e grafici tridimensionali • 
La tavola degli elementi chi¬ 
mici • Macintosh: La compa¬ 
tibilità Mac-IBM • Tutto sul 
CFS • LTiit-parade del mese. 




























Avete un Apple Ile con scheda 80 colonne, oppure un Ile? 

Li usate per programmare? Sicuramente allora desiderate fare 
il dump dello schermo quando lavora in 80 colonne, 
e questa utile routine fa proprio al caso vostro. 


Screen dump sì, 
ma a 80 colonne 


Per usare questo breve programma 
è sufficiente inserirlo come subrouti¬ 
ne nel vostro programma, dalla linea 
100 alla linea 290 del listato 1. Ci¬ 
gni volta che desiderate inviare alla 
stampante il contenuto dello scher¬ 
mo, usate Tistruzione GOSUB 100. 

Il programma (listato 1) è autodi¬ 
mostrativo: attiva in primo luogo la 
scheda 80 colonne, eseguendo quindi 
il catalog per riempire lo schermo, e 
infine, usando GOSUB 100, invia il 
contenuto dello schermo alla stam¬ 
pante. 

Vi sono vari metodi per inserire 
questa routine in un programma. La 
via più semplice è quella di caricare 


Listato 1 


10 

20 

30 

40 

50 

60 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 


con LOAD la routine in memoria, 
quindi iniziare a scrivere il vostro 
programma dalla linea 300. 

Un'altra soluzione potrebbe essere 
quella di usare le funzioni del pro¬ 
gramma RENUMBER inserito nel 
disco System Master del DOS 3.3 o 
nel Disco Utility 3.3 (Disk Service) 
di Applicando per collocare la routi¬ 
ne in una particolare zona del vostro 
programma. 

Infine si può trasformare l'utility 
in un file di testo per agganciarla al 
termine di un programma già scritto 
(vedete a questo riguardo il manuale 
DOS a pag. 76). 

Per inserire il programma, copiate 


il listato 1 e salvatelo sul disco 
con l'istruzione: 


SAVE SCREEN.DUMP80 


E' necessario avere un Apple Ile 
con scheda 80 colonne o un Ile e la 
scheda della stampante nello Slot 1. 
Se la stampante è collegata a un al¬ 
tro Slot, cambiate la linea 100 con 
il numero relativo dello Slot. 


Come lavora 

Prima di attivare la subroutine, oc¬ 
corre attivare la scheda a 80 colonne 
e lo schermo deve contenere dei dati. 
Vengono eseguiti tre cicli FOR-NE- 
XT per leggere ciascuna linea dello 
schermo fino a completamento del¬ 
l'operazione. Lo schermo a 80 colon¬ 
ne è formato semplicemente da due 
schermi a 40 colonne che usano lo 
stesso blocco di memoria, uno nel¬ 
la memoria principale e uno nella 
memoria ausiliaria (scheda 80 co¬ 
lonne). La partenza avviene alla loca¬ 
zione di memoria 1024 ($400 esade- 
cimale). Il primo carattere di ciascu¬ 
na riga è memorizzato nello scher¬ 
mo ausiliario. Attivate lo schermo 
ausiliario con l'istruzione POKE 
49237,0 quindi leggete il primo ca¬ 
rattere con l'istruzione PEEK(1024) 
che vi dà l'equivalente ASCII del ca¬ 
rattere stesso. Il successivo carattere 
va letto disattivando lo schermo ausi¬ 
liario con l'istruzione POKE 
49236,0 e quindi con l'istruzione 
PEEK(1024). Potete vederne un e- 
sempio nella Tavola 1. Poiché sia 
la scheda 80 colonne sia la scheda 
della stampante sono trattate come 


REM SCREE-.DUMP80 
REM BY A.R.CLAYTON 
REM COPYRIGHT (C) 1986 
REM BY APPLICANDO & 

REM MICROSPARC, INC. 

REM - 

PRINT CHR$ (4);"PR#3": PRINT CHR$ (4)"CATALOG": REM 
SCHEDA 80 COLONNE E RIEMPIE LO SCHERMO 
GOSUB 100: END 

PRINT CHR$ (4);"PR#1": REM ATTIVA LA STAMPANTE 
PRINT CHR$ (9);"80N" : REM DISATTIVA LO SCHERMO 
FOR A = 1024 TO 1104 STEP 40 

FOR I = A TO A + 896 STEP 128 

FOR X = I TO I + 39 

POKE 49237,0: REM ATTIVA LA SECONDA PAGINA NELLA MEMORIA AUX 
GOSUB 260 

POKE 49236,0: REM DISATTIVA LA SECONDA PAGINA 
GOSUB 260 
NEXT X 

PRINT L$:L$ = "" 

NEXT I 
NEXT A 

PRINT CHR$ (4);"PR#0": REM DISATTIVA LA STAMPANTE 
PRINT CHR$ (4);"PR#3": REM ATTIVA LA SCHEDA 80 COLONNE 
RETURN 

L = PEEK (X) 

L = L * (L < 255) * (L > 31): IF NOT L THEN L = 32 
L$ = L$ + CHR$ (L) 

RETURN : REM QUESTA SUBROUTINE ELIMINA I CARATTERI DI CONTROLL 
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Il programma linea per linea 


Linee 100-110 Attivano la stampante e disattivano lo schermo per 
evitare che i caratteri vengano inviati anche allo schermo. 

Linee 120-140 Impostano i tre cicli FOR-NEXT per la lettura del¬ 
le locazioni di memoria usate dallo schermo. 

Linee 150 e 170 Commutano i soft switch tra la memoria aux e 
quella principale. 

La subroutine alla linea 260 rimuove i caratteri di controllo con¬ 
frontando il loro valore ASCII: se è inferiore a 31, allora viene stam¬ 
pato uno spazio vuoto. 

Linea 200 Invia L$ alla stampante. Questa stringa è riempita alla 
linea 260. Quando tutti gli 80 caratteri sono stati letti, essa viene re¬ 
sa nulla e riutilizzata. 

Linee 230-240 Disattivano la stampante e attivano la scheda 80 co¬ 
lonne. 


Tavola 1 

Posizione dei caratteri sullo schermo a 80 colonne. 


Locazione di memoria 

1024 

1024 

1025 

1025 

Caratteri sullo schermo 

A 

B 

C 

D 

Memoria 

AUX 

PRINC 

AUX 

PRINC 


periferiche, il PR#0 usato per disatti¬ 
vare la stampante non può ritrasferi¬ 
re il controllo alla scheda a 80 co¬ 
lonne. Purtroppo un nuovo PR#3 
pulisce lo schermo. Se è importante 
che il vostro programma ritorni in 
80 colonne con il video originale in¬ 
tatto, occorre modificare il program¬ 
ma come segue. In primo luogo, di¬ 
mensionate un vettore stringa in mo¬ 
do da contenere tutte le linee dello 
schermo a 80 colonne. Quindi usate 
questo vettore al posto della variabi¬ 
le L$, per costruire ciascuna linea 
prima delFinvio alla stampante. Infi¬ 
ne battete PR#0 e PR#3 per ridire¬ 
zionare l'uscita alla scheda 80 colon¬ 
ne e usate un ciclo FOR-NEXT per 
riscrivere lo schermo prelevando i ca¬ 
ratteri dal vettore stringa. 


Questo programma è disponibile 
su dischetto. L'elenco, i prezzi 
e le modalità d'ordine di questoe 
degli altri dischetti disponibili sono 
riportati nella rubrica Disk Service. 
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Applicando a portata di mano 



E' disponibile il raccoglitore di Applicando e gli indici su 
dischetto degli anni 1983/84/85. Ogni raccoglitore 
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Sì, voglio avere Applicando sempre 
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□ N...raccoglitori per 

Applicando a L. 18.000 cadauno 
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Vi invio L.a mezzo 
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Via. 

Cap.Prov. 

Città. 


Compilare, ritagliare e inviare in busta chiusta allegando il pagamento a Editronica srl - Corso Monforte 39 - 20122 Milano 



























mwm : musica 

Credete che l'Apple sappia solo fare bip? 
Questo programma in Applesoft trasforma la 
tastiera del computer in un organo, 
con una estensione di quattro ottave. 

Mentre la musica suona, le note vengono 
disegnate su uno spartito in alta risoluzione. 

Per chi suona 
la tastiera 


Per chi pensa che un bip di segna¬ 
lazione dell’errore rappresenti il mas¬ 
simo delle capacità sonore dell'Ap¬ 
ple è ora di sgranchirsi le dita e di ac¬ 
cordare l'orecchio. Il bip d'errore non 
fa che scalfire la superficie delle pos¬ 
sibilità musicali dell'Apple. Questo 
programma, Maestro, trasforma la ta¬ 
stiera dell'Apple in un organo con u- 
na estensione di quattro ottave. 
Quando si premono i tasti vengono 
suonate le relative note, che allo 
stesso tempo compaiono sul rigo 
musicale disegnato sul video. 

Le melodie possono essere imma¬ 
gazzinate su un dischetto per essere 
riascoltate. Se non si completa una 
melodia in una seduta la si può sal¬ 
vare sul dischetto per completarla in 
seguito. Oppure si può salvare una 
musica e poi modificarla. Il pro¬ 
gramma permette di comporre melo¬ 
die che impiegano 49 note (non suo¬ 
na però gli accordi). 


Come si usa 

Dato il RUN al programma 
Maestro, viene presentato il menù di 
nove opzioni visibile in figura 1. La 
prima opzione, ascoltare una melo¬ 
dia creata dal computer, offre un'uti¬ 
le dimostrazione delle possibilità del 
programma. Quando si preme 1 il 
programma genera in modo casuale 
una sequenza di note e provvede a vi¬ 
sualizzarle (figura 2) e a suonarle. 

L'opzione 2 permette di creare u- 
na melodia personale. Dopo aver 
scelto questa opzione verrà presenta¬ 
to un pentagramma in bianco, e il 
programma attenderà il vostro input. 


I diagrammi della tastiera visibili 
nelle figure 3 e 4 mostrano la nota 
che corrisponde a ciascun tasto sia 
per la tastiera del Ile (o del He) sia 
per quella del II Plus. La durata di o- 
gni nota viene modificata premendo 
le cifre 1-9 come indica la figura 5. 

II tasto 0 è impiegato per fare le ter¬ 
zine, in quanto riduce di un terzo la 
durata delle successive tre note che 
vengono suonate. 

Alla pressione di ciascun tasto 
corrispondente a una nota viene dise¬ 
gnato sul rigo il rispettivo simbolo, 
e viene suonata la nota. Quando avre¬ 
te raggiunto la fine della schermata, 
verrà visualizzato un rigo in bianco 
e potrete quindi proseguire la compo¬ 
sizione. 

Ci sono diversi tasti che hanno 
un significato speciale: 

1. <ESC> arresta l'esecuzione del¬ 
la musica e visualizza il menù. 

2. La freccia sinistra (il tasto usa¬ 
to per tornare indietro di un caratte¬ 
re) cancella l'ultima nota suonata. 
Si può continuare a tornare indietro 
così fino all'inizio di una schermata 
piena di note, ma non si può risalire 
in questo modo alle schermate prece¬ 
denti. 

3. La barra spazio viene utilizzata 
per le pause (in realtà produce una 
nota troppo alta perché l'altoparlante 
dell'Apple la suoni in modo udi¬ 
bile). 

4. Qualsiasi tasto corrispondente 
a un carattere non compreso nei dia¬ 
grammi della tastiera produce la nota 
più bassa possibile oppure non pro¬ 
duce alcuna nota. 

La routine di generazione dei suo¬ 
ni dell’Apple produce note alte fino 
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al limite dell’udibile, ma la nota più 
bassa disponibile è pressappoco il 
Si sotto il Do centrale. Per approfit¬ 
tare delle quattro ottave di tasti e no¬ 
te disponibili le note disegnate sullo 
schermo Hi-Res sono trasposte in 
giù di due ottave rispetto alla nota ef¬ 
fettivamente suonata dall'Apple. Per 
avere i migliori risultati le melodie 
dovrebbero essere suonate utilizzan¬ 
do le ottave più basse. Così una 
musica che abbia un’estensione di 
due ottave dovrebbe essere suonata 
nelle due o tre ottave più basse, e sa¬ 
rà disegnata sullo schermo utilizzan¬ 
do per lo più la chiave di basso. 

Dato che le opzioni 1 e 2 distrug¬ 
geranno qualsiasi composizione che 
si trovi eventualmente in memoria, 
entrambe queste opzioni chiedono 
conferma prima di procedere. Notate 
inoltre che a causa del tempo occor¬ 


rente per suonare e disegnare ogni 
nota è possibile che qualcuna ne va¬ 
da perduta se si premono i tasti con 
eccessiva velocità. 

Quando una melodia è stata com¬ 
posta dal programma o introdotta da 
tastiera la si può salvare su dischetto 
con l'opzione 3. Per mantenere la 
compatibilità con il ProDOS il pro¬ 
gramma vi chiederà di specificare un 
nome di file lungo meno di 16 carat¬ 
teri, che comprenda soltanto lettere, 
numeri e punti. Per ascoltare la me¬ 
lodia in memoria, scegliete l'opzio¬ 
ne 4. Verrete prima invitati a dire se 
volete una stampa su carta della mu¬ 
sica mentre viene suonata. Questo 
prompt è previsto per chi ha un'inter¬ 
faccia stampante (come la Grappler 
o la Microtek Dumpling) che per¬ 
metta il dump grafico diretto. 

Sarete anche invitati a specificare 


un fattore di ritardo. Questo fattore 
determina la velocità alla quale viene 
riprodotta una musica: la velocità 
massima è data da un fattore di ritar¬ 
do zero. Il programma suonerà poi 
la melodia visualizzando ogni nota 
mentre viene suonata. 

Se volete ascoltare una musica 
che era stata in precedenza salvata su 
dischetto, usate l'opzione 5 per cari¬ 
carla in memoria prima di usare l'o¬ 
pzione 4. Dato che questa scelta so¬ 
vrascriverà qualsiasi melodia che si 
trovi eventualmente in memoria sare¬ 
te invitati a dare conferma prima che 
la musica sia caricata dal dischetto. 


Editing e introduzione 

Se volete modificare una musica, 
accertatevi prima che essa sia in me- 


Listato 1 : MAESTRO 


1 REM MAESTRO 

2 REM DI DAVID L. SMITH 

3 REM (C) BY APPLICANDO 

4 REM & MICROSPARC.1986 

5 REM- 

7 LOMEM: 25088:CS = 49168: GOTO 46 

8 C = C + T * (C=J AND I%(0) AND 1%(0) < T): IF 

Z+E* (C>W) > D THEN Z = S:B = U * ( NOT B 
) : IF NOT B THEN ON PF GOSUB 14: CALL H:I = W 

9 Y = 0 * G + TW + B: IF C THEN DRAW C AT Z,Y:Z 
= Z + E:I%(0) = C 

10 DRAW V + J AT Z,Y:Z = Z + W2: RETURN 

11 FOR Q = TW TO A * (L%(X - R) + F * ( NOT L%(X 
- R))) / E: NEXT : RETURN 

12 H% (I) = C + HF * (Z - T9):K% (I) = Y: RETURN 

13 NN = X:X = N: POKE CS,W: RETURN 

14 PRINT : PRINT D$"PR#1": PRINT CHR$ (9)"G": PR 
INT D$"PR#0": RETURN 

15 PRINT " (S/N)? POKE CS,W 

16 Q = FRE (W): GET G$: PRINT G$: RETURN 

17 N = NN + R: HOME : VTAB 23: POKE MS,W: PRINT " 
PRONTO PER COMPORRE": GOSUB 73: POKE FS,W: GOT 
0 19 

18 HOME : VTAB 22: PRINT " <ESC> PER FINIRE ": HG 
R : CALL H:N = R:A$ = "":V = FI: GOSUB 37 

19 FOR ZY = W TO R STEP W: GET G$:Q = VAL (G$) : 
IF Q THEN V = Q: NEXT 

20 IF G$ = "0" THEN TF = G: NEXT 

21 IF G$ = M$ THEN GOSUB 38: NEXT 

22 IF G$ < CHR$ (TT) OR G$ > CHRS (96) THEN Q = 

FRE (W): NEXT 

23 IF G$ = E$ OR N > 1395 THEN N = N - R:ZY = R: 
NEXT : RETURN 

24 L% (N) = B% (V - R * (TF > W) ) :TF = TF - R * (TF 

> W):J = W: IF G$ = S$ THEN J = NI:P%(N) = R: 

c = w 

25 IF NOT J THEN X = A% ( ASC (G$) - TT):P%(N) = 
C% (X) :0 = Y% (X) :C - J% (X) 

26 GOSUB 8: POKE P,P%(N): POKE L,L%(N): CALL M: G 
OSUB 12:N =N+R:I=I+R: NEXT 

27 GOSUB 34 

28 HOME : VTAB 21: PRINT A$: PRINT : PRINT " UN T 
ASTO PER FERMARE LA MUSICA": HGR : CALL H: GOS 
UB 37: FOR X = R TO N:V = G%(L%(X)):J = NI * ( 
P%(X) = R):C = W: IF NOT J THEN Q = F%(P%(X)) 
:0 - Y% (Q) :C = J% (Q) 

29 GOSUB 8: ON A AND I GOSUB 11: POKE P,P%(X): PO 
KE L,L%(X): CALL M: ON FL GOSUB 12:1 » I + R: 
IF PEEK (K) > HF THEN GOSUB 13: IF FL THEN 
NEXT : GOTO 17 

30 NEXT :NN = N: ON FL GOTO 17: IF PF THEN GOSUB 

14: PRINT : PRINT D$"PR#1": POKE 36,40 - LEN 
(A$) / 2: PRINT A$: PRINT D$"PR#0":PF = 0: RE 
TURN 
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31 HOME : VTAB 21: POKE MS,W 

32 VTAB 23: HTAB 7: PRINT " UN TASTO PER CONTINUA 
RE";: POKE CS,W:Q = FRE (W): FOR Q = R TO P: 

IF PEEK (K) > HF THEN Q = P 

33 NEXT : POKE FS,W: GET G$: PRINT : HOME : RETUR 
N 

34 PF = 0: IF NOT FL THEN PRINT " VUOI STAMPAR 
E?";: GOSUB 15: IF G$ = "S" THEN PF - 1: GOSUB 

42 

35 PRINT "FATTORE DI RITARDO = "A: POKE CS,W: INP 
UT "BATTI UN FATTORE DI RITARDO E <RETURN>0 < 
RETURN> PER ACCETTARE: ";G$: IF ( VAL (G$) > W 

OR G$ = "0") THEN A = VAL (G$) 

36 RETURN 

37 TF = W:Z = S:B = W:C = W: FOR X = W TO 30:1% (X 
) = W: NEXT :0 = 16: GOSUB 73:1 = W: POKE FS,W 
: RETURN 

38 IF NOT I THEN PRINT B$: RETURN 

39 1=1- R:N = N - R:Z = INT (H%(I) / HF):V = 
G%(L%(N)):J = NI * (P%(N) = R):C = H% (I) - HF 
* Z : Y = K% (I) :B = U * (Y > 92) :0 = (Y - TW - B 
) / G:Z = Z + S: XDRAW V + J AT Z,Y: IF C THEN 

Z = Z - E: XDRAW C AT Z,Y: IF C = T THEN 1% (O 

) = c 

40 IF NOT I THEN CALL H 

41 Q = FRE (W) : RETURN 

42 IF A$ > "" THEN PRINT "USA •"A$"• COME NOME"; 

: GOSUB 15: IF G$ = "S" THEN RETURN 

43 VTAB 18: HTAB 1: CALL - 958: PRINT "NOME DELL 
A MUSICA? (16 LETTERE):": INPUT "";A$ 

44 NF= 1: IF LEN (A$) > 0 THEN FOR NC = 1 TO LE 
N (A$):NA = ASC ( MID$ (A$,NC,1)):NF = ((NA > 

64 AND NA < 91) OR (NA =46) OR (NA > 47 AND 
NA < 58 AND NC > 1)) AND NF = 1 : NEXT : IF LEN 
(A$) > 15 OR NF = 0 THEN PR INT B$"NOME NON 
VALIDO!": FOR NC = 1 TO 1000: NEXT : GOTO 43 

45 RETURN 

46 TEXT : HOME : HTAB 13: PRINT "MAESTRO": HTAB 1 
1: PRINT "DI DAVID L. SMITH": PRINT "(C) 1986 
BY APPLICANDO & MICROSPARC.": PRINT : PRINT "S 
CEGLI UN NUMERO:": PRINT : PRINT "1. ASCOLTA U 
NA MELODIA DEL COMPUTER" 

47 PRINT "2. CREA UNA MELODIA SULL’APPLE": PRINT 
"3. SALVA LA MELODIA SUL DISCO": PRINT "4. ASC 
OLTA LA MELODIA IN MEMORIA": PRINT "5. CARICA 
UNA MELODIA DAL DISCO": PRINT "6. MODIFICA LA 
MELODIA IN MEMORIA" 

48 PRINT "7. ISTRUZIONI": PRINT "8. CATALOG": PRI 
NT "9. FINE": POKE CS,W: PRINT : IF NOT F THE 
N INVERSE : PRINT "IL TASTO CAPS LOCK DEVE ES 
SERE ABBASSATO";: NORMAL : PRINT : HTAB 13: PR 
INT "UN MOMENTO...": GOSUB 74: VTAB PEEK (37) 

: CALL - 868 

49 HTAB 1: VTAB 17: CALL - 958: PRINT " SCEGLI: 
";: GOSUB 16: IF G$ = "9" THEN PRINT "VUOI FI 
NIRE? (S/N)";: GET G$: PRINT : IF G$ = "S" THE 
N TEXT : HOME : END 

50 Q = VAL (G$): IF Q < 1 OR Q > 8 THEN 49 
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MAESTRO 

DI DAVID L. SMITH 

CO 1986 BY APPLICANDO & MICROSPARC. 
SCEGLI UN NUMERO: 

1. ASCOLTA UNA MELODIA DEL COMPUTER 

2. CREA UNA MELODIA SULL'APPLE 

3. SALVA LA MELODIA SUL DISCO 

4. ASCOLTA LA MELODIA IN MEMORIA 

5. CARICA UNA MELODIA DAL DISCO 

6. MODIFICA LA MELODIA IN MEMORIA 

7. ISTRUZIONI 

8. CATALOG 

9. FINE 


SCEGLI: ? 




Figurai. Il menù del programma. 


Figura 2. Il display del pentagramma. 


moria, componendola o caricandola 
dal dischetto. Quando scegliete l’op¬ 
zione 6 la musica verrà suonata fino 
a quando premerete un tasto. A que¬ 
sto punto potete reintrodurre il resto 
della melodia. Se volete semplice¬ 


mente aggiungere qualcosa a una 
musica creata in precedenza, sceglie¬ 
te l’opzione 6 e lasciate che la melo¬ 
dia venga suonata fino al termine. 
Poi potrete introdurre note aggiunti¬ 
ve come di solito. 


Sono previste infine tre opzioni 
di aiuto per l’uso del programma: I- 
struzioni, Catalog e Fine. La prima, 
l’opzione 7, presenta varie schermate 
di informazioni che descrivono il 
funzionamento del programma, coni¬ 


si IF Q = 1 OR Q = 2 OR Q = 5 THEN VTAB 17: CALL 
- 958: PRINT : PRINT "LA MUSICA IN MEMORIA S 
ARA’ PERSA.";: PRINT "VA BENE? (S/N)";: GET G$ 

: PRINT : IF G$ < > "S" THEN 49 

52 FL = (Q - 6): ON Q GOSUB 70,18,53,27,56,27,61, 
72: GOTO 46 

53 GOSUB 42: IF A$ = "" THEN RETURN 

54 ONERR GOTO 59 

55 PRINT D$"OPEN"A$: PRINT D$"CLOSE": PRINT D$"DE 
LETE"A$: PRINT D$"OPEN"A$: PRINT D$"WRITE"A$: 
PRINT N: FOR X « R TO N: PRINT P% (X) : PRINT L% 
(X): NEXT : PRINT D$"CLOSE": RETURN 

56 A$ = "": GOSUB 42: ONERR GOTO 59 

57 IF A$ = "" THEN POKE EF,W: RETURN 

58 PRINT D$"VERIFY"A$: PRINT D$"OPEN"A$: PRINT D$ 
"READ"A$: INPUT N: FOR X = R TO N: INPUT P%(X) 

: INPUT L% (X) : NEXT : PRINT D$"CLOSE": POKE EF 
, W: RETURN 

59 CALL 818: PRINT D$"CLOSE":Q = PEEK (222): IF 
Q = 6 OR Q = TT THEN PRINT B$"MI SPIACE, QUES 
TA NON LA CONOSCO.": FOR NC = 1 TO 1000: NEXT 

: GOSUB 43: GOTO 57 

60 PRINT B$"ERRORE N."Q", LINEA " PEEK (218) + F 

* PEEK (219): POKE EF,W: PRINT "UN TASTO QUAL 
SIASI PER IL MENU’": WAIT - 16384,128: POKE 
- 16368,0: GOTO 46 

61 TEXT : HOME : HTAB 15: PRINT "ISTRUZIONI": POK 
E 34,2: HOME 

62 PRINT "QUESTO PROGRAMMA USA LA TASTIERA COME 

UN ORGANO CON 4 OTTAVE (1 NOTA ALLA VOLTA 
).": PRINT : PRINT "PRIMA DI SUONARE QUALSIASI 
NOTA SCEGLI LA LUNGHEZZA DELLA NOTA CON I NU 
MERI 1-9." 

63 PRINT "PER SUONARE UNA TERZINA PREMI <0>. QUE¬ 

STO ABBREVIA LA LUNGHEZZA DELLE 3 NOTE SEGUE 
NTI. ECCETTO LE TERZINE LA DURATA DELLA NOTA 
NON CAMBIA FINO A QUANDO SI PREME UN ALTRO NU 
MERO." 

64 PRINT : PRINT "LE LUNGHEZZE DISPONIBILI SONO : 
": PRINT " 1-SEMICROMA","2-SEMICROMA PUNTATA": 

PRINT " 3-CROMA","4-CROMA PUNTATA": PRINT " 5 
-SEMIMINIMA","6-SEMIMINIMA PUNTATA": PRINT " 7 
-MINIMA","8-MINIMA PUNTATA": PRINT " 9-BREVE": 
GOSUB 32 

65 PRINT : PRINT "SE BATTI TROPPO VELOCE, LE NOTE 

ANDRANNOPERDUTE.ASCOLTA IL SUONA DELLA NOTA P 
RI-MA DI BATTERNE UN'ALTRA.": PRINT 

66 PRINT "SE SBAGLI PUOI CANCELLARE LE NOTE FINO 

ALLA SOMMITÀ' DELLO SPARTITO VISUALIZZA-TO US 
ANDO LA FRECCIA SINISTRA.";: GOSUB 32: PRINT " 
LE 4 OTTAVE SONO DISPOSTE DALL'ALTO AL BASSO 
DELLA TASTIERA:": PRINT 

67 PRINT " C C# D E- E F F# G A- A B- B" 

: PRINT " - 

PRINT "SOPRANO: ! @ #$ % A & * ( ) - 

=": PRINT " ALTO: QW ER TYU IO P 
"; CHR$ (91);" ]": REM 29 LINEETTE 


68 PRINT " TENORE: AS DF GHJ KL ;' <RET 
>";: PRINT " BASSO: 'ZXCVBNM, . / 

?" : PRINT "PIU* BASSO-: ", CHR$ (96);"PAUSA 
: <BARRA SPAZIO": PRINT 

69 PRINT "PREMENDO GLI ALTRI TASTI SI OTTERRÀ* IL 

SI BEMOLLE PIU' BASSO O NON SI AVRA' ALCUN 
A NOTA.": PRINT : PRINT "FINITA LA COMPOSIZION 
E,PREMERE <ESC> PERTORNARE AL MENU'.": GOTO 32 

70 X = RND ( - PEEK (78) - F * PEEK (79)): PRI 
NT : FLASH : PRINT " STO COMPONENDO ": NORMAL 

: FOR N = W TO 41:Q = W:A = TW: FOR X = W TO 6 
: IF N / TW A X = INT (N / TW A X) THEN D%(X) 

= FI * RND (R) :E% (X) = TW * RND (R) 

71 Q = Q + D%(X) :A = A + E% (X) : NEXT :P%(N + R) - 

c%(N%(Q)):L%(N + R) = B%(A): NEXT :A = W:A$ « 
"": GOTO 28 

72 HOME : PRINT D$"CATALOG": GOTO 32 

73 FOR Q = 0 TO 999: NEXT :Q = FRE (0): RETURN 

74 D$ = CHR$ (4): PRINT D$"BLOAD NOTES": POKE 23 
2,0: POKE 233,96: PRINT D$"BLOAD STAFF": VTAB 
19: HTAB 26 

75 R = 1 :FJ - 4 : E = 8:NI = 9:F8 = 48:F = 256:T2 = 

32:P = 768 :L = 769:M = 770:K = 49152:HF = 127 
:D = 264 :S = 17:T = 21:W2 = 12:TW = 2:G - 3:TT 
= 13 :U = 96:H = 791:HA = .5:T9 = 29-.SE = 7:FI 
= 5 :FS = 49234 :MS = 49235:EF = 216 

76 DIM N%(28) , I%(30),C%(F8) ,Y%(F8) ,J%(F8) ,A%(83) , 

G%(192),F%(242),P%(1400),L%(1400),H%(41),K%(41 
): FOR X = R TO F8:C% (X) = F / TW A (X / W2) + 

HA :F% (F / TW A (X / W2) + HA) = X: READ Q:A%( 

Q - TT) = X: PRINT NEXT 

77 G%(W) = NI:G%(W2) = R:B%(W) = W2:Q = FJ: FOR X 

= R TO SE STEP TW:B% (X) = TW A Q:G%(TW A Q) = 
X:G%((TW A Q) * G / TW) = X + R:B%(X + R) = G 
* B% (X) / TW:Q = Q + R: NEXT 

78 B$ - CHRS (SE):E$ = CHR$ (27):M$ = CHR$ (E) 

:S$ = " ": HCOLOR= G: SCALE= R: ROT= W: FOR X 
= M TO 827: READ Z: POKE X,Z: NEXT : FOR X = R 

TO SE: READ N%(X): FOR N = R TO G:N% (X + SE * 
N) » N% (X) + W2 * N: NEXT : PRINT NEXT 

79 FOR X = W TO W2: READ Y% (X) : NEXT : FOR X = TW 

TO 11: READ J% (X) : NEXT : FOR N = R TO G: FOR 
X = R TO W2:Y%(X + W2 * N) = Y%(X) - SE * N:J 
%(X + W2 * N) = J% (X): NEXT : PRINT NEXT 

: RETURN 

80 DATA 96, 90, 88, 67, 86, 66, 78, 77, 44,46, 47, 63, 65, 83 
,68,70,71,72,74,75,76,59,39,13,81,87,69,82,84, 
89,85,73,79,80,91,93,33,64,35,36,37,94,38,42,4 
0,41,45,61 

81 DATA 173,48,192,136,208,5,206,1,3,240,9,202,20 
8, 245, 174, 0,3, 76, 2,3, 96 

82 DATA 169,64,133,61,169,247,133,62,169,95,133,6 
3,169,32,133,67,169,0,133,60,133,66,160,0,76,4 
4,254: DATA 104,168,104,166,223,154,72,152,72, 
96: DATA 1,3,5,6,8,10,12: DATA 30,29,29,28,27, 
27,26,26,25,24,24,23,23 

83 DATA 19,0,20,0,0,19,0,20,0,20 
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Listato 2: STAFF.MAKER 


10 REM STAFF. MAKER 
20 REM DI DAVID L. SMITH 
30 REM (C) BY APPLICANDO 
40 REM & MICROSPARC.1986 

50 REM - 

80 ONERR GOTO 220 
90 D$ = CHR$ (4): HGR2 :BO = 96: HCOLOR= 3: FOR 
Y = 0 TO BO STEP BO 

100 HCOLOR= 1: FOR Z = Y + 18 TO Y + 42 STEP 6: H 
PLOT 1, Z TO 278,Z: NEXT : FOR Z = Y + 54 TO Y 
+ 78 STEP 6: HPLOT 1,Z TO 278,Z: NEXT 
110 HCOLOR= 2: HPLOT 0,Y + 6 TO 279,Y + 6: HPLOT 
0,Y + 48 TO 279,Y + 48: HPLOT 0,Y + 84 TO 279 
,Y + 84: HPLOT 0,Y + 90 TO 279,Y + 90: HPLOT 
0,Y + 12 TO 279,Y + 12 

120 HCOLOR= 3: HPLOT 0,Y + 18 TO 0,Y + 42: HPLOT 
0,Y + 54 TO 0,Y + 78: HPLOT 279,Y + 18 TO 279 
,Y + 42: HPLOT 279,Y + 54 TO 279,Y + 78 
130 HPLOT 5,Y + 44 TO 5,Y + 45: HPLOT 6,Y + 46 TO 
8,Y + 46: HPLOT 9,Y + 45: HPLOT 10,Y + 44 TO 
10,Y + 12: HPLOT 11,Y + 11 TO 12,Y + 11: HPL 
OT 13,Y + 12 TO 13,Y + 18:Z = Y + 19: FOR X = 
12 TO 6 STEP - 1: HPLOT X,Z:Z = Z + 1: NEXT 


DOS 3.3 
ProDOS 

Apple He 
Apple Ile 


140 HPLOT 6, Y + 26: HPLOT 5,Y + 27 TO 5,Y + 28: H 
PLOT 4, Y + 29 TO 4,Y + 30: HPLOT 3,Y + 31 TO 

3, Y + 36: HPLOT 4,Y + 37 TO 4,Y + 38: HPLOT 5 
, Y + 39: HPLOT 6, Y + 40 TO 7,Y + 40: HPLOT 8, 
Y + 41 TO 12,Y + 41: HPLOT 13,Y + 40: HPLOT 1 

4, Y + 39 

150 HPLOT 15,Y + 38 TO 15,Y + 34: HPLOT 14,Y + 33 
: HPLOT 13,Y + 32: HPLOT 12,Y + 31 TO 9,Y + 3 
1: HPLOT 8,Y + 32: HPLOT 7,Y + 33 TO 7,Y + 34 
160 HPLOT 6,Y + 61 TO 4,Y + 61 TO 4,Y + 60 TO 6,Y 
+ 60 TO 6,Y + 59 TO 4,Y + 59: HPLOT 3,Y + 58 
TO 3,Y + 57: HPLOT 4,Y + 56: HPLOT 5,Y + 55: 
HPLOT 6,Y + 54 TO 9,Y + 54:Z = Y + 55: FOR X 
= 10 TO 13: HPLOT X,Z:Z = Z + 1: NEXT 
170 HPLOT TO 13, Y + 62: HPLOT 12,Y + 63 TO 12,Y 
+ 64: HPLOT 11,Y + 65:Z = Y + 66: FOR X = 11 
TO 3 STEP - 1: HPLOT X,Z:Z = Z + 1: NEXT : H 
PLOT 16,Y + 57: HPLOT 16,Y + 63 
180 NEXT Y 

190 FOR K = 1 TO 2000: NEXT : PRINT CHR$ (7) 

200 TEXT : HOME : VTAB 12: PRINT "E* TUTTO GIUSTO 
? (S/N)";: GET G$: PRINT G$: IF G$ = "S" THE 
N PRINT D$"BSAVE STAFF,AS4000,L$1FFF" 

210 TEXT : END 

220 TEXT : PRINT "ERRORE N." PEEK (222)" A LINEA 
" PEEK (218) + 256 * PEEK (219) 


presa la configurazione della tastiera. 
L’opzione 8, il catalog, permette di 
vedere appunto l'elenco dei file me¬ 
morizzati sul dischetto. L'opzione 9 
permette di uscire dal programma, 
chiedendone la conferma. 

PerdigitareMaestrodovetedappri- 
ma introdurre il programma in Ap¬ 
plesoft visibile nel listato 1 , e sal¬ 
varlo su dischetto con il comando: 
SAVE MAESTRO 

Nel digitare questo listato, tenete 
conto però di un'importante avver¬ 
tenza: la linea 44 supera le 256 bat¬ 
tute, e va quindi scritta senza spazi. 
Questo programma carica con 
BLOAD, quando viene eseguito, due 
file aggiuntivi: STAFF (in inglese 
pentagramma: una schermata ad alta 
risoluzione di un rigo musicale in 
bianco) e NOTES (la tavola delle fi¬ 
gure per le note). 

Per creare il primo di questi file, 
digitate il programma in Applesoft 
visibile nel listato 2 e salvatelo 


su dischetto con il comando: 

SAVE STAFF.MAKER 

Fatelo girare, con l'istruzione 
RUN, per creare sullo schermo Hi- 
Res il rigo in bianco. Dopo che avre¬ 
te ispezionato questo pentagramma 
per qualche momento sarete invitati 
a confermare che la videata è esatta 
prima che essa sia automaticamente 
salvata come STAFF. 

Accedete al Monitor battendo 
CALL-151 per introdurre in memo¬ 
ria il listato 3 e salvatelo su dischet¬ 
to con il comando: 

BSAVE NOTES,A$6000,L$1E3 
Per facilitare la copiatura di que¬ 
sto listato fate riferimento alla rubri¬ 
ca “Per chi comincia” nelle ultime 
pagine della rivista. 

Assicuratevi che tutti e tre i file, 
MAESTRO, STAFF e NOTES, sia¬ 
no sullo stesso dischetto prima di da¬ 
re RUN MAESTRO. 

La versione MAESTRO visibile 
nel listato 1 è prevista per la tastiera 


del Ile o del Ile. Per modificare il 
programma in modo da renderlo com¬ 
patibile con la tastiera del II Plus so¬ 
stituite le linee 67, 68 e 80 con quel¬ 
le visibili nel listato 4. 


Come funziona 

Maestro è un buon esempio della 
Quinta Legge dei Computer: qualsia¬ 
si programma dato si espanderà fino 
a riempire tutta la memoria disponi¬ 
bile. Il nucleo del programma è una 
routine di generazione dei suoni di 
23 byte. Il programma occupa 6K di 
memoria sotto le pagine grafiche del¬ 
l'alta risoluzione. Riceve l'input da 
tastiera, disegna le note sulla pagina 
uno della Hi-Res utilizzando la tavo¬ 
la delle figure di 483 byte in locazio¬ 
ne proprio sopra la pagina due della 
Hi-Res, e scrive con POKE i valori 
appropriati nella routine che genera 
i suoni. 


ISTRUZIONI 

LE 4 OTTAVE SONO DISPOSTE DALL'ALTO AL. 
BASSO DELLA TASTIERA: 



C 

C# 

D 

E 

- E F 

F# 

G A- 

A B- B 

SOPRANO : 

! 

al 
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% 
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* < 

) - = 

ALTO: 

Q 

LI 

E 

R 

T Y 

U 

I 0 

P [ ] 

TENORE: 

A 

S 

D 

F 

G H 

J 

K L 

; ' <RET> 

BASSO : 

N 

Z 

X 

C 

V B 

N 

M , 

. / ? 

PIU' BASSO- 



'PAUSA ; 

: <BARRA 

SPAZIO) 


PREMENDO GLI ALTRI TASTI SI OTTERRÀ' IL 
SI BEMOLLE PIU' BASSO O NON SI AVRA ' 
ALCUNA NOTA. 


FINITA LA COMPOSI ZI ONE,PREMERE <ESC> PER 
TORNARE AL MENU'. 


Figura 3. Configurazione della tastiera per Ile e Ile. 


ISTRUZIONI 

LE 4 OTTAVE SONO DISPOSTE DALL'ALTO AL 
BASSO DELLA TASTIERA: 
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RET 

TENOR: 
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-> 

BASS: 
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PIU' BASSO-: ? PAUSA: <BARRA SPAZIO) 


PREMENDO GLI ALTRI TASTI SI OTTERRÀ' IL 
SI BEMOLLE PIU' BASSO O NON SI AVRA' 
ALCUNA NOTA. 

FINITA LA COMPOSI ZI ONE,PREMERE <ESC> PER 
TORNARE AL MENU' 

Figura 4. Configurazione della tastiera per II Plus. 
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LA Fotocpjtnpo s izione Elettronica 


Cos'è Page Maker 

E* un prodotto software orientato alla 
creazione e impaginazione di testi e 
figure, che consente la realizzazione 
delia composizione tipografica nel proprio 
ufficio. In pratica può essere considerato 
l'equivalente del piano tipografico per la 
configurazione di layouts di stampa. 

Page Maker è il prodotto che completa e 
potenzia l'utilizzo di MacWrite, MacDraw 
e MacPaint, per una valida composizione 
tipografica di pubblicazioni, comunicati 
stampa, listini prezzi, manuali di istruzio¬ 
ni, elenchi e presentazioni, 
he pagine possono essere assemblate tra 
loro in maniera rapida, con precisione e a 
basso costo, estraendole da documenti 
già memorizzati, da grafici e disegni. 

A cosa serve Page Maker 
Con Page Maker anche i più semplici lavo¬ 
ri di editoria possono essere realizzati a 
livello professionale. Inoltre, a differenza 
dei servizi veri e propri di composizione, 
possono essere prodotti con un notevole 
risparmio di tempo, passando direttamen¬ 
te dalPimpostazione grafica alla tipografia 
senza sottoporsi a numerosi processi di 
fotocomposizione. 

Utilizzando Page Maker, chiunque può es¬ 
sere in grado di creare pubblicazioni sul 
video, cambiando la lunghezza delle ri¬ 
ghe, creando colonne di stampa (fino a 
10), ingrandendo o riducendo sezioni o 
correggendo i testi, inserendo e assem¬ 
blando grafici e altro. 


Chiunque abbia questo tipo di esigenze, 
pur non lavorando nel settore editoriale o 
non avendo alcuna esperienza di grafica 
o disegno, con Page Maker ha la garanzia 
di ottenere ottimi risultati di lavoro ad un 
livello qualitativo superiore. 

Il prodotto consente inoltre di correggere 
testi razionalizzando gii spazi o, eventual¬ 
mente, eliminando parte del testo per im¬ 
paginarlo in modo ottimale. 

A chi serve Page Maker 
Page Maker può essere utilizzato in uffi¬ 
cio sia a livello impiegatizio che professio¬ 
nale. 

E' particolarmente utile a: 

Uffici Marketing per la realizzazione di 
listini, bollettini, guide o elenchi di 
mailings, documentazione promozionale. 
Uffici Tecnici per la stesura completa del¬ 
la documentazione tecnica dei prodotti in¬ 
tegrata a testi e disegni, per la creazione 
di manuali. 

Uffici Grafici per la visualizzazione delle 
intuizioni creative dei grafici equilibrando¬ 
le con il volume di testo e griglia da combi¬ 
nare. 

Uffici Tipografici per la realizzazione della 
composizione elettronica dei testi spo¬ 
standosi dal testo alla stampa senza bi¬ 
sogno di passaggio di fotocomposizione. 
Ufficio Personale per la realizzazione del¬ 
le pubblicazioni interne (giornali), per co¬ 
municazioni al personale dipendente, bol¬ 
lettini, o altro. 



Riproduzione a video della pagina composta con il programma Page Maker 


Cosa può fare Page Maker 

Page Maker può: 

• creare e modificare fino a 16 pagine 

• determinare formato pagina (standard) 

• modificare ed elaborare testi 

• elaborare figure e linee geometriche 

• ingrandire (effetto zoom) 

•definire numero e dimensione colonne 

• modificare tipo e corpo carattere 

• inserire righelli e numerazione pagine 

• sovrapporre testo e grafica 

Perchè Page Maker 

Page Maker è uno strumento che con¬ 
sente al Futi lizzato re di aumentare le sue 
capacità operative. Infatti, anche una 
persona senza esperienza particolare di 
grafica, può essere in grado di creare 
delle validissime pubblicazioni ad un li¬ 
vello qualitativo notevole. 

Page Maker rappresenta inoltre uno stru¬ 
mento estremamente stimolante per i di¬ 
segnatori grafici: infatti si possono otte¬ 
nere rapidamente pagine finite, consen¬ 
tendo così ad un abile utilizzatore del 
prodotto di esaminare, correggere e rifi¬ 
nire eventuali dettagli a carattere grafico. 
La sua potenzialità è eccezionale. E' un 
prodotto di facile utilizzo, realizzato in 
italiano. 

Utilizzando un programma di comunica¬ 
zione come il MacTerminal è possibile as¬ 
semblare informazioni su testi, create pre¬ 
cedentemente con i sistemi dedicati di 
word processing su altri personal 
computer, trasferendo il file del word 
processor su disco Macintosh. 

I risultati ottenibili con Page Maker posso¬ 
no essere esaltati dall'utilizzo di una stam¬ 
pante laser. L'uso di Page Maker crea una 
tra le più efficienti ed economiche tipogra¬ 
fie mai realizzate. 

Configurazione Hardware 

. Macintosh 512K 

. 2 disk-drive o hard-disk + 1 disk-drive 



flTALWARE 

L Società Italiana Software _ 

SOLUZIONI IN PUGNO 


V.le Europa 48 - 20093 Cotogno Monzese 
telef. (02)2514.1 - telex 316197 CANL5 










































































Listato 3: NOTES 

*6000.61E2 


6000- 

15 

00 

34 

00 

4E 

00 

68 

00 

6008- 

81 

00 

9A 

00 

B1 

00 

C9 

00 

6010- 

DC 

00 

F0 

00 

FC 

00 

11 

01 

6018- 

27 

01 

3C 

01 

52 

01 

65 

01 

6020- 

79 

01 

86 

01 

92 

01 

A0 

01 

6028- 

B9 

01 

CA 

01 

E4 

01 

00 

00 

6030- 

00 

00 

00 

00 

09 

36 

0E 

24 

6038- 

24 

35 

36 

2E 

24 

24 

35 

36 

6040- 

66 

24 

24 

24 

24 

24 

75 

0E 

6048- 

DE 

0E 

0E 

B6 

01 

00 

09 

36 

6050- 

0E 

24 

24 

35 

36 

2E 

24 

24 

6058- 

35 

36 

66 

24 

24 

24 

24 

24 

6060- 

75 

0E 

DE 

0E 

0E 

96 

05 

00 

6068- 

09 

36 

0E 

24 

24 

35 

36 

2E 

6070- 

24 

24 

35 

36 

66 

24 

24 

24 

6078- 

24 

24 

75 

0E 

36 

96 

0A 

00 

6080- 

00 

09 

36 

0E 

24 

24 

35 

36 

6088- 

2E 

24 

24 

35 

36 

66 

24 

24 

6090- 

24 

24 

24 

75 

0E 

36 

96 

2A 

6098- 

00 

00 

09 

36 

0E 

24 

24 

35 

60A0- 

36 

2E 

24 

24 

35 

36 

66 

24 

60A8- 

24 

24 

24 

24 

95 

92 

92 

00 

60B0- 

00 

09 

36 

0E 

24 

24 

35 

36 

60B8- 

2E 

24 

24 

35 

36 

66 

24 

24 

60C0- 

24 

24 

24 

95 

92 

92 

09 

05 

60C8- 

00 

09 

4C 

09 

3F 

B7 

33 

0E 

60D0- 

2D 

65 

24 

24 

24 

24 

24 

95 

60D8- 

92 

92 

00 

00 

09 

4C 

09 

3F 

60E0- 

B7 

33 

0E 

2D 

65 

24 

24 

24 

60E8- 

24 

24 

4D 

92 

92 

12 

05 

00 

60F0- 

09 

4C 

09 

3F 

B7 

33 

0E 

2D 

60F8- 

65 

24 

05 

00 

92 

49 

21 

OC 

6100- 

64 

64 

64 

64 

BC 

3F 

27 

37 

6108- 

97 

3A 

2E 

2D 

6D 

89 

12 

00 

6110- 

00 

92 

49 

21 

OC 

64 

64 

64 

6118- 

24 

25 

9F 

3F 

3C 

BE 

12 

37 

6120- 

2D 

2D 

4D 

12 

0E 

00 

00 

92 

6128- 

49 

21 

OC 

64 

64 

64 

64 

BC 

6130- 

17 

3F 

3F 

3C 

2C 

35 

4D 

89 

6138- 

92 

92 

01 

00 

92 

49 

21 

OC 

6140- 

64 

64 

64 

24 

25 

9F 

3E 

3F 

6148- 

27 

27 

2D 

B6 

92 

52 

49 

29 

6150- 

00 

00 

92 

49 

1C 

24 

OC 

2D 

6158- 

1C 

1C 

67 

25 

E5 

1C 

1C 

4D 

6160- 

91 

92 

92 

00 

00 

92 

49 

1C 

6168- 

24 

OC 

2D 

1C 

1C 

67 

25 

E5 

6170- 

1C 

1C 

4D 

49 

92 

92 

72 

00 

6178- 

00 

08 

08 

2D 

36 

25 

2C 

36 

6180- 

25 

2C 

2D 

56 

00 

00 

41 

28 

6188- 

35 

2E 

24 

35 

2E 

24 

2D 

B5 

6190- 

05 

00 

41 

28 

25 

2C 

36 

25 

6198- 

2C 

36 

25 

2C 

36 

B5 

01 

00 

61A0- 

92 

4A 

76 

24 

2D 

3C 

27 

2^ 

61A8- 

27 

2D 

2D 

3C 

3F 

6C 

21 

15 

61B0- 

B6 

12 

B6 

23 

24 

24 

OD 

00 

61B8- 

00 

49 

09 

BE 

17 

17 

24 

24 

61C0- 

24 

24 

24 

AC 

92 

2A 

15 

15 

61C8- 

00 

00 

92 

4A 

2E 

2C 

25 

FF 

61D0- 

24 

2C 

2C 

25 

BF 

23 

24 

4D 

61D8- 

89 

37 

35 

97 

32 

96 

21 

24 

61E0- 

24 

2C 

00 







Quando lo schermo Hi-Res infe¬ 
riore è pieno di note viene richiama¬ 
ta una routine di trasferimento della 
memoria per sostituirlo con quello 
superiore, che contiene un rigo musi¬ 
cale in bianco. 

I restanti 15K sopra la tavola del¬ 
le figure conservano le numerose ma¬ 
trici che vengono utilizzate come ta¬ 
vole di ricerca per accelerare l’esecu¬ 
zione del programma, come pure le 
matrici che immagazzinano l’altezza 
e la lunghezza delle note. C’è memo¬ 
ria a sufficienza per conservare nella 
RAM una composizione formata da 
1400 note. 

Le composizioni possono essere 


salvate su dischetto come ordinari fi¬ 
le di testo. 

Il cuore del programma si trova 
nel menù (linee 46-52). Alle varie 
subroutine si accede tramite le opzio¬ 
ni del menù. Se non sono state ini- 
zializzate variabili il programma fa 
prima una diramazione alla routine 
di inizializzazione che si trova nelle 
linee 78-43 . 


L'inizializzazione 

La routine di inizializzazione cari¬ 
ca dapprima in memoria le tavole 
del pentagramma e delle figure. Per 
accelerare l’esecuzione del program¬ 
ma sono stati dati a tutte le costanti 
del programma nomi di variabile. A 
causa della lentezza dell’Applesoft è 
stato necessario inizializzare diverse 
matrici. 

Queste dicono al programma qua¬ 
le nota suonare quando viene premu¬ 
to un determinato tasto e quale figu¬ 
ra tracciare in quale punto dello 
schermo. Le matrici P% e L% con¬ 
tengono rispettivamente l’altezza e 
la durata delle note. 

Le istruzioni DATA di linea 80 
contengono i codici ASCII per i ta¬ 
sti che producono le 48 note dispo¬ 
nibili, dalla più bassa alla più alta. 

Le linee 81-83 contengono i valo¬ 
ri decimali per le routine in linguag¬ 
gio macchina che sono scritte con 
POKE nello spazio di pagina 3 (co¬ 
minciando dalla locazione 770). La 
linea 81 è la routine di generazione 
dei suoni, la linea 82 genera il codi¬ 
ce per la routine di trasferimento del¬ 
la memoria dalla pagina 2 dell’alta ri¬ 
soluzione alla pagina 1 e la linea 83 
è una routine di trattamento dell’er¬ 
rore. Le ultime tre linee di istruzioni 
DATA inizializzano le matrici che 
dicono al programma le note da usa¬ 
re per la composizione, la posizione 
verticale delle note e se mettere o no 
un segno di diesis o di bemolle da¬ 
vanti alla nota. 

Come indicato nell'istruzione ON- 
GOSUB di linea 52 le routine princi¬ 
pali del programma sono le se¬ 


guenti: 

Linee 70-71: creano il suono genera¬ 
to dal computer. 

Linee 18-26: permettono l’input del¬ 
le note. 

Linee 53-55: salvano i dati su di¬ 
schetto. 

Linee 27-33: riproducono la melodia 
e permettono di modificarla se il 
flag di editing (FL) è impostato. 
Linee 56-600: caricano i dati dal di¬ 
schetto. 

Linee 61-69: presentano le istru¬ 
zioni. 

Linea 72: visualizza il catalog del di¬ 
schetto. 


Possibili modifiche 

Se siete tentati di modificare 
Maestro notate innanzi tutto che il 
programma com’è pubblicato riem¬ 
pie quasi interamente la memoria 
sotto la pagina 1 dell’alta risoluzio¬ 
ne. Qualsiasi modifica venga fatta de¬ 
ve tener conto di questa lunghezza. 

Se non disponete di un'interfaccia 
per stampante che supporti i dump 
grafici ecco le modifiche da effettua¬ 
re al listato 1 per adattarlo alle se¬ 
guenti soluzioni. 

Le linee di programma indicate 
vanno sostituite alle corrispondenti 
linee nel listato 1. 


STAMPANTE IMG - SISTEMA 
OPERATIVO DOS 3.3 


7 LOMEM: 25088:CS = 49168: HI- 
MEM: 36864: GOTO 46 
14 POKE 6,1: POKE 7,1: PRINT 
D$”PR#r: PRINT D$"CHR$ 
(27) + ”>”: CALL 36864: PRINT 
D*”PR#0”: RETURN 
74 D$ = CHR$(4): PRINT 

D$”BLOAD NOTES”: POKE 
232;0: POKE 233,96: PRINT 
D$”BLOAD STAFF”: VTAB 19: 
HTAB 26: PRINT D$”BLOAD 
IMG” 

Inoltre bisogna introdurre in me¬ 
moria il listato 5, usando lo stes¬ 
so sistema del listato 3, e salvarlo 
con l’istruzione: 


1 - SEMICROMA 

2-SEMICROMA PUNTATA 

3-CROMA 

4-CROMA PUNTATA 

5 - SEMIMINIMA 

6-SEMIMINIMA PUNTATA 

7-MINIMA 

8-MINIMA PUNTATA 

9-SEMIBREVE 


Figura 5. Corrispondenza fra numeri e durata delle note. 
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Listato 4: modifiche per il 11 Plus 


67 PRINT " C C» D E- E F F# G A- A B- B“ : PRINT “ 

-PRINT "SOPRANO: ! CHR$ (34) 

;"#$%&' ( ) : * PRINT » ALTO: Q W E R T Y U 

IO P @ RET": REM 29 LINEETTE 

68 PRINT " TENOR: A S D F G H J K L ; + -> PRINT " BAS 

S: Z X C V B N M , < . > /": PRINT "PIU' BASSO-: ? PAUSA: 

<RPA7TO'>"* PRTMT 

80 DATA 90, 88, 67,86*, 66, 78,77, 44, 60,4 6, 62,47, 65, 83, 68,70,71,7 2,74,75 
,76, 59, 43, 21,81,87, 69,82,84,89,85,73, 79, 80, 64,13,33,34,35,36,37, 
38,39,40,41,58,42,45 


DOS 3.3 
Pro20S 

Apple Ile 
Apple Ile 


BSAVE IMG,A$9000,L$543. 


STAMPANTE DMP 

7 LOMEM: 25088:CS = 49168: HI- 
MEM: 37888: GOTO 46 
14 POKE 6,1: POKE 7,1: PRINT 
D$"PR#1": PRINT D$"CHR$ 
(27) + ">": CALL 37888: PRINT 
D$"PR#0": RETURN 


Listato 5 


*9000.9543 


9000- 

A5 

06 

0A 

0A 

0A 

0A 

85 

FC 

9008- 

A5 

06 

29 

07 

09 

CO 

8D 

13 

9010- 

90 

AD 

GB 

CO 

C9 

01 

F0 

OF 

9018- 

C9 

58 

F0 

16 

A9 

ED 

85 

FA 

9020- 

A9 

FD 

85 

FB 

38 

B0 

1 8 

A9 

9028- 

Al 

85 

FA 

A9 

91 

85 

FB 

38 

9030- 

B0 

OD 

A9 

BA 

85 

FA 

A9 

91 

9038- 

85 

FB 

A9 

00 

20 

B7 

91 

A5 

9040- 

07 

29 

08 

F0 

03 

4C 

C9 

91 

9048- 

A5 

07 

6A 

6A 

6 A 

29 

CO 

85 

9050- 

07 

A9 

20 

90 

02 

A9 

40 

85 

9058- 

1B 

A0 

00 

64 

1A 

84 

09 

A9 

9060- 

OD 

20 

B7 

91 

A9 

1B 

20 

B7 

9068- 

91 

A9 

5A 

20 

B7 

91 

A9 

00 

9070- 

20 

B7 

91 

A9 

20 

20 

B7 

91 

9078- 

A9 

1B 

20 

B7 

91 

A9 

54 

20 

9080- 

B7 

91 

A9 

31 

20 

B7 

91 

A9 

9088- 

36 

20 

B7 

91 

A9 

FF 

6 8 

19 

9090- 

A6 

1B 

A4 

1A 

DO 

OC 

8A 

29 

9098- 

1F 

DO 

07 

66 

07 

B0 

61 

38 

90A0- 

26 

07 

8A 

48 

98 

48 

A9 

1B 

90A8- 

20 

B7 

91 

A9 

47 

20 

B7 

91 

90B0- 

A9 

30 

20 

B7 

91 

24 

07 

10 

90B8- 

OC 

A9 

35 

20 

B7 

91 

A9 

36 

90C0- 

20 

B7 

91 

DO 

0A 

A 9 

32 

20 

90C8- 

B7 

91 

A9 

38 

20 

B7 

91 

A9 

90D0- 

30 

20 

B7 

91 

A9 

01 

85 

08 

90D8- 

E6 

19 

A4 

19 

CO 

28 

90 

OE 

90E0- 

A9 

OD 

20 

B7 

91 

A9 

0A 

20 

90E8- 

B7 

91 

68 

68 

10 

9E 

68 

AA 

90F0- 

85 

1A 

68 

85 

1B 

48 

8A 

48 

90F8- 

A9 

00 

85 

06 

A2 

08 

DO 

06 

9100- 

B0 

74 

30 

DO 

10 

E8 

A4 

19 

9108- 

B1 

1A 

25 

08 

C9 

01 

66 

06 

9110- 

CA 

24 

07 

10 

08 

A5 

09 

49 

9118- 

01 

85 

09 

DO 

E9 

18 

A 5 

1B 

9120- 

69 

04 

A0 

1C 

84 

09 

24 

09 

9128- 

DO 

25 

06 

1A 

90 

1D 

69 

EO 

9130- 

18 

A0 

04 

84 

09 

24 

09 

FO 

9138- 

14 

A5 

1A 

69 

50 

49 

F0 

FO 

9140- 

02 

49 

F0 

85 

1A 

A5 

1B 

29 

9148- 

E0 

90 

02 

69 

E0 

66 

1A 

85 

9150- 

1B 

A9 

00 

85 

09 

E0 

00 

DO 

9158- 

AD 

A5 

06 

24 

07 

70 

02 

49 

9160- 

FF 

20 

B7 

91 

24 

07 

10 

08 

9168- 

A5 

09 

49 

01 

85 

09 

DO 

E9 

9170- 

06 

08 

30 

8E 

10 

8E 

85 

07 

9178- 

A9 

1B 

20 

B7 

91 

A9 

41 

20 

9180- 

B7 

91 

A9 

OD 

20 

B7 

91 

A9 

9188- 

0A 

20 

B7 

91 

A9 

1B 

20 

B7 

9190- 

91 

A9 

44 

20 

B7 

91 

A9 

00 

9198- 

20 

B7 

91 

A9 

20 

20 

B7 

91 

91A0- 

60 

AA 

A4 

FC 

B9 

89 

CO 

29 


74 D$ = CHR$(4): PRINT 

D$ M BLOAD NOTES": POKE 
232;0: POKE 233,96: PRINT 
D$"BLOAD STAFF": VTAB 19: 
HTAB 26: PRINT D$"BLOAD 
DMP" 

Inoltre bisogna introdurre in me¬ 
moria il listato 6, usando lo stes¬ 
so sistema del listato 3, e salvarlo 
con l'istruzione: 


91A8- 

10 

FO 

F9 

B9 

89 

CO 

29 

40 

91B0- 

DO 

F2 

8A 

99 

88 

CO 

60 

6C 

91B8- 

FA 

00 

AA 

A4 

FC 

B9 

84 

CO 

91C0- 

29 

80 

FO 

F9 

8A 

99 

80 

CO 

91C8- 

60 

A9 

ED 

85 

FE 

A9 

91 

85 

91D0- 

FF 

AO 

00 

Bl 

FE 

C9 

FF 

FO 

91D8- 

13 

20 

B7 

91 

18 

A5 

FE 

69 

91E0- 

01 

85 

FE 

A5 

FF 

69 

00 

85 

91E8- 

FF 

38 

BO 

E5 

60 

1B 

5A 

00 

91F0- 

20 

1B 

2D 

1B 

49 

41 

48 

00 

91F8- 

1C 

OA 

09 

OA 

1C 

00 

00 

42 

9200- 

48 

00 

1F 

15 

15 

1F 

OA 

00 

9208- 

00 

43 

48 

00 

00 

OE 

11 

11 

9210- 

11 

00 

00 

44 

48 

00 

00 

1F 

9218- 

11 

11 

OE 

00 

00 

45 

48 

00 

9220- 

00 

1F 

15 

15 

11 

00 

00 

46 

9228- 

48 

00 

00 

1F 

05 

05 

01 

00 

9230- 

00 

47 

48 

00 

00 

OE 

11 

15 

9238- 

1D 

00 

00 

48 

48 

00 

00 

1F 

9240- 

04 

04 

1F 

00 

00 

49 

48 

00 

9248- 

00 

11 

1F 

11 

00 

00 

00 

4 A. 

9250- 

48 

00 

00 

08 

11 

OF 

01 

00 

9258- 

00 

4B 

48 

00 

00 

1F 

04 

OA 

9260- 

11 

00 

00 

4C 

4 8 

00 

00 

1F 

9268- 

10 

10 

10 

00 

00 

4D 

48 

00 

9270- 

1F 

02 

04 

02 

1F 

00 

00 

4E 

9278- 

48 

00 

1F 

02 

04 

08 

1F 

00 

9280- 

00 

4F 

48 

00 

OE 

11 

11 

11 

9288- 

OE 

00 

00 

50 

48 

00 

00 

1F 

9290- 

05 

05 

02 

00 

00 

51 

48 

00 

9298- 

OE 

11 

11 

15 

OE 

10 

00 

52 

92A0- 

48 

00 

1F 

05 

05 

OF 

10 

00 

92A8- 

00 

53 

48 

00 

00 

12 

15 

15 

92B0- 

09 

00 

00 

54 

48 

00 

01 

01 

92B8- 

1F 

01 

01 

00 

00 

55 

48 

00 

92C0- 

OF 

10 

10 

10 

OF 

00 

00 

56 

92C8- 

48 

00 

07 

08 

10 

08 

07 

00 

92D0- 

00 

57 

48 

00 

OF 

10 

OC 

10 

92D8- 

OF 

00 

00 

58 

48 

00 

11 

OA 

92E0- 

04 

OA 

11 

00 

00 

59 

48 

00 

92E8- 

01 

02 

1C 

02 

01 

00 

00 

5A 

92F0- 

48 

00 

11 

19 

15 

13 

11 

00 

92F8- 

00 

21 

4 6 

00 

00 

00 

1F 

00 

9300- 

00 

00 

00 

22 

48 

00 

00 

12 

9308- 

19 

15 

13 

00 

00 

23 

48 

00 

9310- 

00 

15 

15 

15 

1F 

00 

00 

24 

9318- 

48 

00 

04 

06 

05 

1F 

04 

00 

9320- 

00 

25 

48 

00 

00 

17 

15 

15 

9328- 

1D 

00 

00 

26 

48 

00 

00 

1E 

9330- 

15 

15 

1D 

00 

00 

27 

48 

00 

9338- 

00 

11 

09 

05 

03 

00 

00 

28 

9340- 

48 

00 

OA 

15 

15 

15 

OA 

00 

9348- 

00 

29 

48 

00 

00 

12 

15 

15 

9350- 

OE 

00 

00 

40 

48 

00 

00 

OE 

9358- 

11 

11 

OE 

00 

00 

3C 

48 

00 

9360- 

00 

00 

OE 

11 

00 

00 

00 

3E 

9368- 

48 

00 

00 

00 

11 

OE 

00 

00 

9370- 

00 

3F 

48 

00 

10 

08 

04 

02 




BSAVE DMP,A$9400,L$ 1E5. 


La modifica per la stampante Ima- 
geWriter non funziona sul Ile: biso¬ 
gna quindi convertire o copiare il pro¬ 
gramma in sistema ProDOS ed effet¬ 
tuare le seguenti modifiche: 

7 LOMEM: 25088:CS = 49168: HI- 
MEM: 36864: GOTO 46 
14 POKE 6,1: POKE 252,16: PO¬ 
KE 7,1: PRINT D$"PR#1": 
PRINT D$"CHR$ (27) + ">": 
CALL 38636: CALL 38156: 
PRINT D*"PR#0": RETURN 
72 HOME: PRINT D$"CAT": GO¬ 
TO 32 

74 D$ = CHR$(4): PRINT 

D$"BLOAD NOTES": POKE 
232;0: POKE 233,96: PRINT 
D$"BLOAD STAFF": VTAB 19: 
HTAB 26: PRINT D$"BLOAD 
IMG1" 


9378- 01 00 00 3D 48 00 04 04 
9380- 04 04 04 00 00 2A 48 00 
9388- 15 0E 04 0E 15 00 00 2B 
9390- 48 00 04 04 1F 04 04 00 
9398- 00 61 68 00 70 28 24 28 
93A0- 70 00 00 62 68 00 7C 54 
93A8- 54 54 28 00 00 63 68 00 
93B0- 00 38 44 44 44 00 00 64 
93B8- 68 00 00 7C 44 44 38 00 
93C0- 00 65 68 00 00 7C 54 54 
93C8- 44 00 00 66 68 00 00 7C 
93D0- 14 14 04 00 00 67 68 00 
93D8- 00 38 44 54 74 00 00 68 
93E0- 68 00 00 7C 10 10 7C 00 
93E8- 00 69 68 00 00 44 7C 44 
93F0- 00 00 00 6A 68 00 00 20 
93F8- 44 3C 04 00 00 6B 68 00 
9400- 00 7C 10 28 44 00 00 6C 
9408- 68 00 00 7C 40 40 40 00 
9410- 00 6D 68 00 7C 08 10 08 
9418- 7C 00 00 6E 68 00 7C 08 
9420- 10 20 7C 00 00 6F 68 00 
9428- 38 44 44 44 38 00 00 70 
9430- 68 00 00 7C 14 14 08 00 
9438- 00 71 68 00 38 44 44 54 
9440- 38 40 00 72 68 00 7C 14 
9448- 14 3C 40 00 00 73 68 00 
9450- 00 48 54 54 24 00 00 74 
9458- 68 00 04 04 7C 04 04 00 
9460- 00 75 68 00 3C 40 40 40 
9468- 3C 00 00 76 68 00 1C 20 
9470- 40 20 1C 00 00 77 68 00 
9478- 3C 40 30 40 3C 00 00 78 
9480- 68 00 44 28 10 28 44 00 
9488- 00 79 68 00 04 08 70 08 
9490- 04 00 00 7A 68 00 44 64 
9498- 54 4C 44 00 00 31 68 00 
94A0- 00 00 7C 00 00 00 00 32 
94A8- 68 00 00 48 64 54 4C 00 
94B0- 00 33 68 00 00 54 54 54 
94B8- 7C 00 00 34 68 00 10 18 
94C0- 14 7C 10 00 00 35 68 00 
94C8- 00 5C 54 54 74 00 00 36 
94D0- 68 00 00 78 54 54 74 00 
94D8- 00 37 68 00 00 44 24 14 
94E0- OC 00 00 38 68 00 28 54 
94E8- 54 54 28 00 00 39 68 00 
94F0- 00 48 54 54 38 00 00 30 
94F8- 68 00 00 38 44 44 38 00 
9500- 00 3A 68 00 54 38 10 38 
9508- 54 00 00 2D 68 00 10 10 
9510- 10 10 10 00 00 3B 68 00 
9518- 10 10 7C 10 10 00 00 2F 
9520- 68 00 40 20 10 08 04 00 
9528- 00 2C 68 00 00 00 38 44 
9530- 00 00 00 2E 68 00 00 00 
9538- 44 38 00 00 00 04 1B 44 
9540- 00 20 FF 22 
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Listato 6 







9498- 

A4 

1A 

DO 

OC 

8A 

29 

IF 

DO 

9540- 

E9 

18 

A5 

1B 

69 

04 

A0 

1C 

9400.95E5 







94A0- 

07 

66 

07 

B0 

7F 

38 

26 

07 

9548- 

84 

09 

24 

09 

DO 

25 

06 

1A 

9400- A2 

80 

86 

1E 

A2 

CO 

86 

IF 

94A8- 

8A 

48 

98 

48 

A0 

00 

B1 

1C 

9550- 

90 

1D 

69 

E0 

18 

A0 

04 

84 

9408- 86 

1D 

E8 

86 

1C 

A5 

06 

DO 

94B0- 

30 

FC 

A9 

1B 

91 

1E 

B1 

1C 

9558- 

09 

24 

09 

F0 

14 

A5 

1A 

69 

9410- 04 

A9 

01 

F0 

06 

C9 

08 

90 

94B8- 

30 

FC 

A9 

47 

91 

1E 

B1 

1C 

9560- 

50 

49 

F0 

F0 

02 

49 

F0 

85 

9418- 02 

A9 

07 

AA 

05 

1D 

85 

1D 

94C0- 

30 

FC 

A9 

30 

91 

1E 

B1 

1C 

9568- 

1A 

A5 

1B 

29 

E0 

90 

02 

69 

9420- 8A 

18 

2A 

2A 

2A 

2A 

65 

1E 

94C8- 

30 

FC 

24 

07 

10 

0E 

A9 

35 

9570- 

E0 

66 

1A 

85 

1B 

A9 

00 

85 

9428- 85 

1E 

A5 

07 

48 

6A 

6A 

6A 

94D0- 

91 

1E 

B1 

1C 

30 

FC 

A9 

36 

9578- 

09 

E0 

00 

DO 

AD 

A0 

00 

B1 

9430- 29 

CO 

85 

07 

A9 

20 

90 

02 

94D8- 

91 

1E 

DO 

OC 

A9 

32 

91 

1E 

9580- 

1C 

30 

FC 

A5 

06 

24 

07 

70 

9438- A9 

40 

85 

1B 

A0 

00 

84 

1A 

94E0- 

B1 

1C 

30 

FC 

A9 

38 

91 

1E 

9588- 

02 

49 

FF 

91 

1E 

24 

07 

10 

9440- 84 

09 

B1 

1C 

30 

FC 

A9 

00 

94E8- 

B1 

1C 

30 

FC 

A9 

30 

91 

1E 

9590- 

08 

A5 

09 

49 

01 

85 

09 

DO 

9448- 91 

1E 

B1 

1C 

30 

FC 

A9 

OD 

94F0- 

A9 

01 

85 

08 

E6 

19 

A4 

19 

9598- 

E6 

06 

08 

30 

89 

10 

89 

68 

9450- 91 

1E 

B1 

1C 

30 

FC 

A9 

1B 

94F8- 

CO 

28 

90 

16 

A0 

00 

B1 

1C 

95A0- 

85 

07 

A0 

00 

B1 

1C 

30 

FC 

9458- 91 

1E 

B1 

1C 

30 

FC 

A9 

5A 

9500- 

30 

FC 

A9 

OD 

91 

1E 

B1 

1C 

95A8- 

A9 

1B 

91 

1E 

B1 

1C 

30 

FC 

9460- 91 

1E 

B1 

1C 

30 

FC 

A9 

00 

9508- 

30 

FC 

A9 

0A 

91 

1E 

68 

68 

95B0- 

A9 

41 

91 

1E 

B1 

1C 

30 

FC 

9468- 91 

1E 

B1 

1C 

30 

FC 

A9 

20 

9510- 

10 

80 

68 

AA 

85 

1A 

68 

85 

95B8- 

A9 

OD 

91 

1E 

B1 

1C 

30 

FC 

9470- 91 

1E 

B1 

1C 

30 

FC 

A9 

1B 

9518- 

1B 

48 

8A 

48 

A9 

00 

85 

06 

95C0- 

A9 

0A 

91 

1E 

B1 

1C 

30 

FC 

9478- 91 

1E 

B1 

1C 

30 

FC 

A9 

54 

9520- 

A2 

08 

DO 

06 

B0 

79 

30 

C8 

95C8- 

A9 

1B 

91 

1E 

B1 

1C 

30 

FC 

9480- 91 

1E 

B1 

1C 

30 

FC 

A9 

31 

9528- 

10 

E8 

A4 

19 

B1 

1A 

25 

08 

95D0- 

A9 

44 

91 

1E 

B1 

1C 

30 

FC 

9488- 91 

1E 

B1 

1C 

30 

FC 

A9 

36 

9530- 

C9 

01 

66 

06 

CA 

24 

07 

10 

95D8- 

A9 

00 

91 

1E 

B1 

1C 

30 

FC 

9490- 91 

1E 

A9 

FF 

85 

19 

A6 

1B 

9538- 

08 

A5 

09 

49 

01 

85 

09 

DO 

95E0- 

A9 

20 

91 

1E 

60 

4C 




Listato 7 







9700- 

AO 

07 

B1 

FE 

C9 

18 

DO 

35 









9708- 

AO 

OB 

B1 

FE 

C9 

01 

FO 

02 

*9500.991D 







9710- 

DO 

2B 

AO 

OD 

B1 

FE 

85 

FA 









9718- 

A5 

FF 

85 

FB 

20 

93 

96 

AO 

9500- 4C 

09 

95 

4C 

B1 

96 

4C 

63 

9720- 

OF 

B1 

FE 

85 

FA 

AO 

OC 

B1 

9508- 97 

20 

DB 

96 

A9 

1B 

20 

93 

9728- 

FE 

C9 

31 

DO 

OF 

A9 

09 

20 

9510- 96 

A9 

4E 

20 

93 

96 

A9 

1B 

9730- 

93 

96 

A9 

5A 

20 

93 

96 

A9 

9518- 20 

93 

96 

A9 

3E 

20 

93 

96 

9738- 

OD 

20 

93 

96 

60 

AO 

OA 

B1 

9520- A5 

07 

6A 

6A 

6A 

29 

CO 

85 

9740- 

FE 

C9 

20 

DO 

17 

C8 

B1 

FE 

9528- 07 

A9 

20 

90 

02 

A9 

40 

85 

9748- 

C9 

58 

DO 

10 

C8 

B1 

FE 

C9 

9530- 1B 

A0 

00 

84 

1A 

84 

09 

A9 

9750- 

FF 

DO 

09 

A9 

9A 

85 

FA 

A9 

9538- OD 

20 

93 

96 

A9 

1B 

20 

93 

9758- 

96 

85 

FB 

60 

A9 

FF 

85 

FC 

9540- 96 

A9 

5A 

20 

93 

96 

A9 

00 

9760- 

68 

68 

60 

AO 

03 

B9 

30 

BE 

9548- 20 

93 

96 

A9 

20 

20 

93 

96 

9768- 

99 

36 

00 

88 

10 

F7 

20 

4F 

9550- A9 

1B 

20 

93 

96 

A9 

54 

20 

9770- 

E7 

EO 

19 

BO 

32 

CA 

8A 

20 

9558- 93 

96 

A9 

31 

20 

93 

96 

A9 

9778- 

5B 

FB 

20 

4C 

E7 

8A 

C9 

51 

9560- 36 

20 

93 

96 

A9 

FF 

85 

19 

9780- 

BO 

25 

85 

24 

C6 

24 

8D 

7B 

9568- A6 

1B 

A4 

1A 

DO 

OC 

8A 

29 

9788- 

05 

CE 

7B 

05 

20 

BE 

DE 

20 

9570- IF 

DO 

07 

66 

07 

BO 

67 

38 

9790- 

E3 

DF 

85 

85 

84 

86 

20 

BE 

9578- 26 

07 

8A 

48 

98 

48 

A9 

1B 

9798- 

DE 

20 

67 

DD 

20 

52 

E7 

20 

9580- 20 

93 

96 

A9 

47 

20 

93 

96 

97A0- 

4C 

E7 

86 

FD 

8A 

DO 

05 

A2 

9588- A9 

30 

20 

93 

96 

24 

07 

10 

97A8- 

35 

4C 

OF 

99 

AO 

00 

B1 

85 

9590- 12 

A9 

35 

20 

93 

96 

A9 

36 

97B0- 

85 

FB 

DO 

06 

8D 

00 

02 

4C 

9598- 20 

93 

96 

A 9 

30 

20 

93 

96 

97B8- 

E5 

97 

C5 

FD 

90 

05 

FO 

03 

95A0- 4C 

B2 

95 

A9 

32 

20 

93 

96 

97C0- 

4C 

OD 

99 

C8 

B1 

85 

85 

83 

95A8- A9 

38 

20 

93 

96 

A9 

30 

20 

97C8- 

C8 

B1 

85 

85 

84 

A4 

FB 

A9 

95B0- 93 

96 

A9 

01 

8 5 

08 

E6 

19 

97D0- 

00 

99 

00 

02 

88 

B1 

83 

99 

95B8- A4 

19 

CO 

28 

90 

OE 

A9 

OD 

97D8- 

00 

02 

CO 

00 

DO 

F6 

A9 

00 

95C0- 20 

93 

96 

A9 

OA 

20 

93 

96 

97E0- 

AO 

02 

20 

3A 

DB 

AO 

00 

84 

95C8- 68 

68 

10 

98 

68 

AA 

85 

1A 

97E8- 

FC 

20 

E4 

98 

20 

07 

99 

C9 

95D0- 68 

85 

1B 

48 

8A 

48 

A9 

00 

97F0- 

19 

DO 

OA 

A4 

FC 

A9 

00 

99 

95D8- 85 

06 

A2 

08 

DO 

06 

BO 

74 

97F8- 

00 

02 

4C 

2C 

98 

C9 

15 

DO 

95E0- 30 

DO 

10 

E8 

A4 

19 

B1 

1A 

9800- 

27 

A4 

FB 

C4 

FC 

DO 

03 

4C 

95E8- 25 

08 

C9 

01 

66 

06 

CA 

24 

9808- 

DC 

98 

AD 

98 

BF 

29 

CO 

C9 

95F0- 07 

10 

08 

A 5 

09 

49 

01 

85 

9810- 

80 

FO 

06 

20 

F4 

FB 

4C 

23 

95F8- 09 

DO 

E9 

18 

A5 

1B 

69 

04 

9818- 

98 

AD 

IF 

CO 

10 

F5 

A9 

9C 

9600- A0 

1C 

84 

09 

24 

09 

DO 

25 

9820- 

20 

ED 

FD 

E6 

FC 

4C 

EC 

97 

9608- 06 

1A 

90 

1D 

69 

EO 

18 

AO 

9828- 

C9 

OD 

DO 

OF 

A9 

00 

AO 

02 

9610- 04 

84 

09 

24 

09 

FO 

14 

A5 

9830- 

A2 

00 

20 

E9 

E3 

20 

9A 

DA 

9618- 1A 

69 

50 

49 

FO 

FO 

02 

49 

9838- 

4C 

12 

99 

C9 

08 

DO 

11 

A4 

9620- F0 

85 

1A 

A5 

1B 

29 

EO 

90 

9840- 

FC 

DO 

03 

4C 

DC 

98 

C6 

FC 

9628- 02 

69 

E0 

66 

1A 

85 

1B 

A9 

9848- 

A9 

88 

20 

ED 

FD 

4C 

EC 

97 

9630- 00 

85 

09 

E0 

00 

DO 

AD 

A5 

9850- 

C9 

18 

DO 

16 

A9 

00 

85 

FB 

9638- 06 

24 

07 

70 

02 

49 

FF 

20 

9858- 

8D 

00 

02 

A4 

FC 

FO 

08 

A9 

9640- 93 

96 

24 

07 

10 

08 

A5 

09 

9860- 

88 

20 

ED 

FD 

88 

DO 

F8 

4C 

9648- 49 

01 

85 

09 

DO 

E9 

06 

08 

9868- 

E5 

97 

C9 

7F 

FO 

04 

C9 

04 

9650- 30 

8E 

10 

8E 

85 

07 

A9 

1B 

9870- 

DO 

39 

A5 

FC 

FO 

66 

A9 

88 

9658- 20 

93 

96 

A9 

41 

20 

93 

96 

9878- 

20 

ED 

FD 

C6 

FC 

C6 

FB 

A6 

9660- A9 

OD 

20 

93 

96 

A9 

OA 

20 

9880- 

FC 

BD 

01 

02 

FO 

OC 

9D 

00 

9668- 93 

96 

A9 

1B 

20 

93 

96 

A9 

9888- 

02 

E8 

09 

80 

20 

ED 

FD 

4C 

9670- 44 

20 

93 

96 

A9 

00 

20 

93 

9890- 

81 

98 

9D 

00 

02 

A9 

DF 

20 

9678- 96 

A9 

20 

20 

93 

96 

A5 

FC 

9898- 

ED 

FD 

A5 

FB 

38 

E5 

FC 

A8 

9680- 4A 

4A 

4A 

4A 

A8 

B9 

F8 

07 

98A0- 

A9 

88 

20 

ED 

FD 

88 

10 

FA 

9688- 29 

EF 

09 

01 

99 

F8 

07 

20 

98A8- 

4C 

EC 

97 

C9 

1B 

DO 

06 

20 

9690- A5 

96 

60 

A4 

FC 

A6 

FF 

6C 

98B0- 

12 

99 

4C 

55 

D9 

A4 

FC 

C4 

9698- FA 

00 

99 

80 

CO 

B9 

84 

CO 

98B8- 

FD 

FO 

21 

C9 

20 

90 

1D 

C9 

96A0- 29 

80 

F0 

F9 

60 

AO 

03 

B9 

98C0- 

5F 

FO 

19 

99 

00 

02 

09 

80 

96A8- 34 

BE 

99 

36 

00 

88 

10 

F7 

98C8- 

20 

ED 

FD 

E6 

FC 

C4 

FB 

90 

96B0- 60 

20 

DB 

96 

A9 

20 

85 

07 

98D0- 

08 

C8 

E6 

FB 

A9 

00 

99 

00 

96B8- A9 

00 

85 

06 

AA 

Al 

06 

86 

98D8- 

02 

4C 

EC 

97 

A9 

87 

20 

ED 

96C0- 09 

20 

93 

96 

A6 

09 

E6 

06 

98E0- 

FD 

4C 

EC 

97 

A5 

FD 

38 

E5 

96C8- DO 

02 

E6 

07 

A5 

06 

C9 

55 

98E8- 

FB 

A8 

FO 

OA 

A9 

DF 

88 

20 

96D0- DO 

EB 

A5 

07 

C9 

23 

DO 

E5 

98F0- 

ED 

FD 

CO 

00 

DO 

F8 

A5 

FD 

96D8- 4C 

7E 

96 

20 

4F 

E 7 

8A 

85 

98F8- 

38 

E5 

FC 

A8 

FO 

08 

A9 

88 

96E0- 06 

0A 

0A 

OA 

OA 

85 

FC 

20 

9900- 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

96E8- 4C 

E7 

86 

07 

A9 

00 

85 

FE 

9908- 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

96F0- A5 

06 

29 

07 

09 

CO 

85 

FF 

9910- 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

AO 

96F8- A0 

05 

B1 

FE 

C9 

38 

DO 

3D 

9918- 

AO 

AO 

AO 

AO 

AO 

00 




Inoltre bisogna introdurre in memo¬ 
ria il listato 7, usando lo stesso si¬ 
stema del listato 3, e salvarlo con ri¬ 
stiamone: 

BSAVE IMG1,A$9500,L$91D. 


Se avete stampanti diverse da quel¬ 
le indicate, potete salvare le videate 
in grafica e quindi stamparle con una 
utility grafica adatta alla vostra stam¬ 
pante. In questo caso le linee da mo¬ 
dificare sono le seguenti: 

14 PRINT : PRINT D$"BSAVE 
" ; A$ ;SC , A$2000,L$2000" : SC 
= SC + 1: RETURN 
27 SC = 0: GOSUB 34 
30 NEXT :NN = N: ON FL GOTO 
17: IF PF THEN GOSUB 14:PF 
= 0: RETURN 

34 PF = 0: EF NOT FL THEN 
PRINT ” VUOI SALVARE LO 
SPARTITO SU DISCO ?";: GO¬ 
SUB 15: IF G$ = "S" THEN PF 
= 1: GOSUB 42 

Con questa modifica le composi¬ 
zioni di più spartiti vengono salvate 
con raggiunta di un numero progres¬ 
sivo, al nome da voi scelto. 


Un ultimo importante avvertimen¬ 
to: la prima videata del programma 
informa che, per il corretto funziona¬ 
mento dello stesso, il tasto CAPS 
LOCK deve rimanere abbassato per¬ 
ché le note corrispondono alle lettere 
maiuscole. Quindi i possessori del 
Ile, per utilizzare come note i tasti 
corrispondenti ai numeri, devono pre¬ 
mere il tasto SHIFT, mentre i pos¬ 
sessori del Ile devono alzare il tasto 
CAPS LOCK. 


Questo programma è disponibile 
su dischetto. L'elenco, i prezzi 
eie modalità d'ordine di questo e 
degli altri dischetti disponibili sono 
riportati nella rubrica Disk Service. 
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PROGRAMMI 


La scelta del proprio database va fatta a colpo sicuro, perché 
pentirsi dopo significa pagare costi elevati di tempo e denaro. Come 
giudicarli? Come capire qual è fatto per voi? 

Eccone cinque a confronto, tra i più importanti e potenti. 

Quale archivio 
per il Mac 


Non si può scegliere con leggerez¬ 
za il proprio programma di archivia¬ 
zione dati: una volta che ci si è impe¬ 
gnati con un database conviene infat¬ 
ti rimanergli fedeli. Una decisione af¬ 
frettata al momento dell'acquisto può 
portare come conseguenza, più o me¬ 
no remota, una buona dose di disa¬ 
gio. 

Dopo aver immesso nel vostro da¬ 
tabase varie migliaia di record, infat¬ 
ti, può capitarvi di scoprire che il 
programma ha limiti insormontabi¬ 
li. E' allora il momento di cercare un 
altro programma. E quando lo trova¬ 
te dovete imparare a usarlo e poi in¬ 
trodurre una seconda volta tutti i vo¬ 
stri dati. Divorziare dal vostro pro¬ 
gramma di database può essere un’e¬ 
sperienza spiacevole e costosa. 

Abbiamo esaminato cinque pro¬ 
grammi di database per il Macinto¬ 
sh, che sono l'OverVUE della Pro- 
VUE, lo Helix dell’Odesta, il Ma- 
cLion della Computer Software Desi¬ 
gn, il Microsoft File della Microsoft 
e l’Omnis 3 della Blyth Software (ta¬ 
vola 1). I produttori sono tutti impe¬ 
gnati al miglioramento dei loro pro¬ 
dotti e i fatti dimostrano che forni¬ 
scono assistenza tecnica. 

Si tratta dei programmi di database 
management più potenti disponibili 
per il Macintosh in termini di quanti¬ 
tà di dati memorizzabili e di varietà 
dei modi di accesso a quei dati. Tutti 
i programmi in questione hanno 
molte delle caratteristiche che è logi¬ 
co attendersi in un programma di da¬ 
tabase. Tuttavia le interfacce utente e 
gli approcci alla gestione del databa¬ 
se sono straordinariamente differenti. 

Per stabilire quale programma sia 
ideale per le vostre esigenze non ba¬ 


sta contare quante siano le sue carat¬ 
teristiche. Sarà invece il caso di stu¬ 
diare l’approccio generale del pro¬ 
gramma all'attività di gestione dei da¬ 
ti e la sua interazione con voi. Il raf¬ 
fronto fra questi programmi, fonda¬ 
mentalmente diversi, può essere però 
privo di senso: per esempio è ingan¬ 
nevole dire che MacLion è limitato a 
25 campi per record mentre Microso¬ 
ft File ne può gestire 1.023. In pri¬ 
mo luogo può darsi che non abbiate 
mai bisogno di tanti campi. In secon¬ 
do luogo MacLion può collegare fra 
loro i campi correlati, permettendo 
un numero molto maggiore di campi 
per record. Ma una tabella di confron¬ 
to non vi dà questa importante infor¬ 
mazione. Perciò interpretate con at¬ 
tenzione quelle nitide e condensate 


tabelle comparative, compresa la no¬ 
stra. Vi potrebbero ingannare. 

Hardware richiesto 

I cinque gestori di database sono 
stati provati su un Mac 512K con 
hard disk. MacLion, Microsoft File 
e OverVUE gireranno anche sul Mac 
128K, ma solo Microsoft File è uti¬ 
le con la memoria più piccola. Se in¬ 
tendete usare un programma potente 
come MacLion lo dovete far girare 
su un Mac 512K. Per le aziende che 
generano vasti database i floppy dri¬ 
ve del Macintosh non provvederanno 
un adeguato spazio di memoria dei 
dati. I floppy drive limitano le di¬ 
mensioni dei file che potete creare, e 
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Order No. 240 
CI i ent Nome DEJfì 

DEJfl UU UIDEO RENTRLS 
3210 EL CANINO REAL 
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Pr i ce 
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19.0 
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8.0 

24.50 

196.00 
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15.0 

3.00 
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105 
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Figura 1. Come si inseriscono i dati con MacLion. 
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I magnifici cinque a confronto 


-PROGRAMMI 

VOCI 

HELIX 

MACLION 

MS FILE 

Configurazione 

512Kb 

128o 512Kb 

128o 512Kb 

Mailing Merge 

Sì 

Sì 

Sì* 

Relazionale 

Sì 

Sì 

No 

Istruzioni Macro 

No 

No 

No 

Programmabile 

No 

Sì 

No 

Facilitazione input 

In parte 

Sì 

In parte 

Campi grafici 

Sì 

No 

Sì 

Record per file 

Disco 

Disco 

65.535 

Campi per record 

Disco 

Variabile 

1.023 

Caratteri per campo 

32.767 

255 

32.767 

File aperti 

Disco 

14 

1 

Sort 100 records 

30 secondi 

< 1 secondo 

10 secondi 

Prezzo Iva esclusa 

1.134.000 

760.000 

512.000 


Tavola 1. Le principali caratteristiche a confronto dei cinque database per Macintos 


le operazioni possono essere penosa¬ 
mente lente. Un hard disk sarebbe li¬ 
na miglior scelta aziendale. 

Quattro dei programmi di database 
che abbiamo esaminato utilizzano la 
normale interfaccia Macintosh dei 
menù a discesa e dei box di dialogo, 
ma anche a prima vista tutti e cin¬ 
que sono molto diversi fra loro nel¬ 
l’aspetto e nell'impressione che fan¬ 
no. La sola eccezione del gruppo è 
MacLion. Si tratta essenzialmente di 
un gestore di database stile IBM PC 
agghindato in modo da sembrare un 
prodotto per il Mac. Il programma, 
pilotato da comandi, è molto poten¬ 
te, ma molto difficie da usare. Ricor¬ 
date di aver dovuto battere una riga 
di testo solo per copiare un file con 
un IBM PC? Per effettuare una sem¬ 
plice interrogazione con MacLion 
può darsi che dobbiate introdurre tre 
righe di comandi. Nello stile della 
maggior parte dei database anteriori 
al Mac, MacLion vi costringe a pro¬ 
gettare i vostri campi e i loro attribu¬ 
ti usando il testo anziché le icone 
visive, e questo può essere molto de¬ 
ludente, se vi siete affezionati a un 
certo modo di lavorare. 

In sostanza MacLion funziona 
molto bene per il consulente d'infor¬ 
matica incaricato di creare database 
su misura per i clienti, dato che il 
modo d'introduzione del testo (figu¬ 
ra 1) è ideale per la programmazio¬ 
ne. Ma per l'utente finale medio le 
procedure complesse, i comandi a- 
strusi e una lunga curva di apprendi¬ 
mento fanno di MacLion un sistema 


da evitare. Helix è all'altro estremo. 
L'Odesta ha abbondato in finestre e 
icone. Tutto, dai campi ai calcoli, ai 
moduli e ai prospetti, è rappresenta¬ 


to da icone. Progettate il database 
con il clic e il trascinamento del 
mouse. Nonostante tutte le finestre 
e le icone con cui dovete trattare, He¬ 
lix è sorprendentemente facile da usa¬ 
re, ed è divertente. Porta allegria nel¬ 
la tediosa e grigia attività di gestio¬ 
ne del database. E la sua facilità d’im¬ 
piego non comporta compromessi 
in fatto di potenza (figura 2). 

OverVUE è un programma pilota¬ 
to da menù, configurato come uno 
spreadsheet con righe e colonne. Po¬ 
tete esaminare simultaneamente sul¬ 
lo schermo fino a 17 record, ognuno 
dei quali occupa una sola riga. Con 
un clic sul pulsante zoom nell'ango¬ 
lo basso a destra della finestra potete 
esaminare più da vicino il contenuto 
di un singolo record. Spostando i 
campi con il mouse da un punto a 
un altro della finestra li potete riordi¬ 
nare per esaminare il vostro record 
in qualsiasi modo desiderato. La bar¬ 
ra di scorrimento sulla destra vi por¬ 
terà attraverso il vostro database, re¬ 
cord per record (figura 3). 

Omnis 3 vi lascia progettare l'in- 


é File Edìt Icons 0HpÌt*i| Search Ioni Sigle 



Figura 2. Usando Helix, tutto è rappresentato da icone. 
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*Con Microsoft Word 


OMNIS3 

OVERVUE 


512Kb 

128o512Kb 


Sì 

Limitato* 


Sì 

Limitato 


Sì 

Sì 


Sì 

No 


Sì 

Eccellente 


No 

No 


Disco 

Ram 


1.440 

64 


60 

62 


12 

1 


< 1 secondo 

< 1 secondo 


1.500.000 

640.000 


traduzione dei dati e le videate di pro¬ 
spetto con grande libertà (figura 
4). Potete avere qualsiasi numero di 
formati personalizzati d'introduzione 
dei dati e di prospetti. Il linguaggio 
di programmazione incorporato in 
Omnis 3 provvede flessibilità e po¬ 
tenza in abbondanza. 

Microsoft File (figura 5) e Helix 
sono sistemi orientati sull'oggetto 
anziché sullo schermo. Siete voi a 
progettare su misura videate di input 
e prospetti manipolando i box che 
rappresentano i campi e le altre strut¬ 
ture del database. Questo stile è più 
intuitivo e affine al Mac di quello de¬ 
gli altri programmi di database. 

Introduzionedeidati 

Microsoft File e Omnis 3 vi per¬ 
mettono di progettare per ogni data¬ 
base un modulo che stabilisce come 
saranno visualizzati i vostri dati. I 
campi possono essere sistemati qua¬ 
si in ogni formato. Per la rapida e- 
splorazione e la facile selezione dei 
campi Microsoft File permette di in¬ 
trodurre i dati ed esaminare i record 


in righe come OverVUE e Omnis 3. 
Helix permette di ere are configurazio¬ 
ni di forma libera, ma dovete intro¬ 
durre i dati in un modulo di un solo 
record. MacLion vi lascia visualizza¬ 
re un'intera schermata di record, ma 
nel modo introduzione dati si vede 
un solo record per volta. 

La maggior parte dei cinque pro¬ 
grammi di database si comporta be¬ 
ne nella progettazione del database 
vero e proprio e nella manipolazione 
dei dati che sono stati introdotti, ma 
varia notevolmente il livello dell'aiu- 
to offerto per fintroduzione dei dati. 
Una volta che avrete predisposto il 
vostro database trascorrerete parec¬ 
chio tempo a introdurre dati. E se a- 
vete 10.000 record per il vostro data¬ 
base li dovrete introdurre con tutta la 
rapidità e l'efficienza possibili. Per e- 
sempio potete predisporre introduzio¬ 
ni a campo di default, limitare a cer¬ 
te fasce specificate le introduzioni 
numeriche e indicare se un'introdu¬ 
zione sarà unica o no. MacLion vi 
dà qualche aiuto per l'introduzione 
dei dati, ma sono OverVUE e Om¬ 
nis 3 a eccellere veramente. 

In OverVUE l'introduzione dei dati 
è rapida, facile ed efficiente. Colpi¬ 
sce in modo particolare la facilità 
con cui si possono introdurre dati ri¬ 
petitivi. Il più potente, e singolare, 
aiuto d'introduzione dei dati di Over¬ 
VUE è denominato Clairvoyance 
(chiaroveggenza). Con Clairvoyance 
OverVUE può prevedere la voce in¬ 
trodotta per un campo in modo che 
non la dobbiate digitare tutta. Per e- 
sempio supponiamo che incomincia¬ 


te a digitare Venezia nel campo del¬ 
le città. Mentre voi battete, Over¬ 
VUE esplora in una frazione di se¬ 
condo le voci introdotte nella colon¬ 
na delle città, alla ricerca di altre cit¬ 
tà che comincino con "Ve". Se Vene¬ 
zia è la sola voce che comincia con 
"Ve" OverVUE prevede automatica- 
mente Venezia come voce possibile. 
Se in precedenza è stata introdotta an¬ 
che Verona il programma attende 
che abbiate definito in modo incon¬ 
fondibile Venezia battendo la "n" e 
la "e" e poi vi dà il resto del nome. 
Una caratteristica veramente ele¬ 
gante! 

OverVUE permette anche di defini¬ 
re modelli d'immissione. Per esem¬ 
pio per il campo dei numeri telefoni¬ 
ci potete chiedere a OverVUE di inse¬ 
rire automaticamente le parentesi pri¬ 
ma e dopo il prefisso della telesele¬ 
zione. Voi non dovrete far altro che 
battere le cifre. 

L'opzione Value Bar vi permette 
di predisporre pulsanti personalizzati 
per le voci che intendete ripetere. 
Quando volete introdurre dati nella 
cella fate clic sul pulsante che rappre¬ 
senta l'opzione scelta. Per esempio 
se la vostra società fa spedizioni 
con vari mezzi (corrieri, ferrovie, po¬ 
ste, aerei) potete predisporre pulsanti 
che visualizzino queste possibilità. 
Quando fate il clic di quella voluta 
OverVUE la mette nella cella. 

Il comando Ditto vi permette di ri¬ 
petere i dati contenuti in precedenti 
celle o righe. Potete perfino chiedere 
a OverVUE di generare numeri in se¬ 
quenza, per avere, ad esempio, nume- 
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Ci ty 

—■— Reai Estate 

Price Bed Bathr fìge 
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Gar 


HB 
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2 

2.00 
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IRU 
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NO 
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20 

NO 

NO 
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HB 
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1 

NO 

NO 

NO 
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HB 
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2 
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19 

NO 

NO 
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2 
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35 

NO 
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Uh 
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12 
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CP 

11112 Jerry Lane 

GG 
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2 

2.00 

30 
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VES 
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VES 
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Figura 3. OverVUE è configurato come uno spreadsheet, con righe e colonne. 
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HELIX 

Bits & Bytes 

Via S. Fran. d’Assisi 8 

Milano 

T. 02/8376207 

Prezzo: 1.134.000 


MACLION 

Apple Computer 

Palazzo Q8 Milanofiori 
Rozzano (MI) 

T. 02/8242156 

Prezzo: 760.000 

Prestazioni DO BOB 


. . no 

Prestazioni 

Facilità d'utilizzo B B B B 


Facilità d'utilizzo B 

Documentazione BBBBB 


Documentazione B 

Potenza BBBBB 


Potenza OOOO 

Giudizio complessivo 00030 


Giudizio complessivo BBBBB 


LEGENDA: 5 Mac = Eccellente, 4 Mac = Buono, 3 Mac = Discreto, 


ri d’assegno o numeri di fattura. 

La maggior parte degli aiuti per 
l’introduzione dei dati incorporati in 
OverVUE può essere programmata 
nel caso dell’Omnis 3. Per esempio 
si possono predisporre pulsanti per 
l’introduzione ripetitiva delle voci e 
si possono definire modelli d'input. 
Si può addirittura programmare l’e¬ 
quivalente per l’Omnis 3 del coman¬ 
do Ditto e di Clairvoyance. 

Helix versione 2.0 permette di se¬ 
lezionare i campi suscettibili di ave¬ 
re voci che si ripetono in più record. 
Una volta che avete predisposto la re¬ 
lativa struttura i valori di default del 
record precedente vengono visualiz¬ 
zati nel record vuoto, in modo che 
possiate decidere se ripetere la voce. 

Gli aiuti per l’introduzione dei dati 
sono una considerazione importante 
quando si tratta di acquistare un pro¬ 
gramma di database. Sarebbe bene 
che un maggior numero di progetti¬ 
sti di programmi di database volges¬ 
sero le loro energie a realizzare simi¬ 
li scorciatoie creative per l’introdu¬ 
zione dei dati. 

I campi d'immagine 

Quando vennero messi in circola¬ 
zione i programmi di database per il 
Macintosh molti utenti rimasero de¬ 
lusi perchè non potevano introdurre 
immagini nei loro campi di databa¬ 
se. Gli utenti abituati alle capacità 
grafiche del Mac volevano introdurre 
logotipi, immagini digitalizzate dei 
loro clienti e grafici in campi d'im¬ 


magine. File fu il primo a permetter¬ 
lo. Anche Helix 2.0 vi permette di 
introdurre in campi d'immagine im¬ 
magini create con il MacPaint o con 
qualsiasi altro programma di dise¬ 
gno. Sia con File sia con Helix pote¬ 
te mettere in scala l'immagine per 
modificarne le dimensioni. In Helix 
potete perfino usare le immagini in 
certi tipi di calcolo e di ricerca. 

E' bene sottolineare che c’è una 
correlazione diretta fra grafici e velo¬ 
cità quando si fanno ordinamenti e ri¬ 
cerche. Lo si vede nel confronto fra 


le velocità di ordinamento alla tavo¬ 
la 1. Mentre File e Helix prevedo¬ 
no la possibilità certamente utile di 
immagazzinare campi d’immagine, è 
chiaro che l’overhead in più occorren¬ 
te può rallentare lo svolgimento dei 
compiti nei quali il tempo è fattore 
rilevante. 


Calcoli e prospetti 

Le capacità di calcolo, analisi di da¬ 
ti, computo di totali parziali, e an¬ 
che effettuazione di qualche compito 
di contabilità e di qualche proiezio¬ 
ne, sono essenziali per il serio im¬ 
piego d’affari di un database. Tutti i 
programmi che abbiamo esaminato 
hanno capacità di calcolo, ma qualcu¬ 
no ha caratteristiche assai più poten¬ 
ti di altri. Le formule di calcolo di 
Helix sono più di 70. Le potete usa¬ 
re per lavorare con i numeri o con il 
testo, per svolgere una varietà appa¬ 
rentemente infinita di compiti. E po¬ 
tete combinare fra loro elementi di 
calcolo per creare equazioni di calco¬ 
lo personalizzate, da semplici totali 
a catene molto complesse di equazio¬ 
ni comprendenti ricerche, calcoli d’af¬ 
fari avanzati e formule trigonome¬ 
triche. File, Omnis 3, MacLion e O- 
verVUE sono limitati nel numero di 
calcoli offerto. Essi comprendono ca¬ 
ratteristiche come le addizioni e i va¬ 
lori minimo e massimo, ma sono as¬ 
senti formule più avanzate interes- 
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Client Record Card i 


C1ient Code 
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C1ient Nome 
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fìddress 
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NC 
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(704) 554-3737 

Ba1 ance 
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O 


f Find | 
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[ Edlt ) 


Delete 


Entries 


Quit ) 


Figura 4. L’introduzione dei dati con Omnis 3. 
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M1CROSOFTFILE 


OMNIS3 


OVERVUE 

J. Soft 


PC Personal Computer 


J. Soft 

Via Rosellini 12 


Via Chiapponi 42 


Via Rosellini 12 

Milano 


Piacenza 


Milano 

T. 02/6888228 


0523/20626 


T. 02/6888228 

Prezzo: 512.000 


Prezzo: 1.500.000 


Prezzo: 640.000 

Prestazioni OElSEiS 


n . QQQQQ 

Prestazioni U=J s==J s==J 


Prestazioni 00000 

Facilità d'utilizzo 210 (2) 00 


Facilità d'utilizzo 000 


Facilità d'utilizzo 0000 

Documentazione 12) 121 E) El 


Documentazione 0000 


Documentazione 0000 

Potenza 0(2)0 


Potenza 00000 


Potenza 2000 

Giudizio complessivo 00000 


Giudizio complessivo 00000 


Giudizio complessivo 00000 


2 Mac = Sufficiente, 1 Mac = Mediocre. 


santi per gli utenti professionali. 
Con MacLion e Omnis 3 si posso¬ 
no però generare formule algebriche 
avanzate. Omnis 3 permette anche 
di definire un calcolo booleano da a- 
vere come conseguenza del testo in¬ 
trodotto in un campo. Per esempio 
potreste calcolare la penale per una 
fattura ogni volta che uno specifico 
campo contenesse il testo "scaduta". 

Tutti e cinque i programmi di data¬ 
base vi permettono di generare pro¬ 
spetti basati sui vostri dati. Potete 
generare diversi prospetti per eviden¬ 
ziare differenti caratteristiche dei vo¬ 
stri dati, e potete eseguire calcoli al¬ 
l'interno dei prospetti. 

Microsoft File e Omnis 3 hanno 
le migliori caratteristiche per l'age¬ 
vole progettazione e stampa su carta 
dei resoconti. Potete prima esamina¬ 
re i prospetti sullo schermo e proget¬ 
tarli nello stesso modo in cui proget¬ 
tate i moduli: in una finestra che vi 
permette di spostare e dimensionare 
ogni campo. Potete ordinare quanti 
campi volete. 

Omnis 3 usa una procedura simile 
a quella usata per predisporre lo 
schermo d'introduzione dei dati. Pote¬ 
te usare intestazioni, totali e totali 
parziali per i vostri prospetti, potete 
fare l'ordinamento su un massimo 
di nove livelli simultaneamente, e 
potete prelevare informazioni da vari 
file per uno stesso prospetto. Omnis 
3 vi permette anche di formattare il 
vostro prospetto sulla pagina in un 


modo che rende facile la progettazio¬ 
ne di vari tipi di etichetta d'indirizzo. 
Potete anche progettare lettere a mo¬ 
dulo che possono essere personalizza¬ 
te sotto controllo programmato. 

Helix vi permette di progettare 
con facilità una varietà di prospetti 
flessibili contenenti complessi calco¬ 
li. E’ però più difficile stampare u- 
na varietà di prospetti diversi relativi 
a record selezionati del database. 

OverVUE rende facile progettare 
prospetti ed etichette d'indirizzo. Po¬ 
tete avere come parte dei vostri pro¬ 


spetti un'intestazione, sommari e no¬ 
te a piè di pagina. 

Programmabilità 

Omnis 3 presenta la potente capa¬ 
cità di scrivere un esteso "codice di 
programma". Si usano sequenze di 
comandi per allestire i propri menù 
a discesa, box di dialogo e altre carat¬ 
teristiche d'interfaccia del Mac. Que¬ 
sto consente ai programmatori con 
Omnis 3 di creare applicazioni di da¬ 
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Good Restaurants i 


nama [The Eagie s 


city \Anchoraqe 


cui sina [Continental 


^ ss 

—| ratini) | 2 [ 


price ranga [Expensive 


ri- ife ife 


Wonderful scenery—Cook's I ni et, 

thè city and mountains. Chef will 
cook anything you want and 
everything is fresh. 


nama |The Golden Crow | — 

rating j 5[ 


city Phoenix 


cui s ina American 


price ranga | Moderate 


* 


InValley Center—taìlest building 

in state. Try thè Shrimp Pernod 
and thè Chocolate Soufflé. Most 
complete wine list in Arizona. 


k> 
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Figura 5. li sort di Microsoft File. 
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Solitudine. 


Solitudine è possedere un computer e non usarlo... 
perchè mancano i programmi o l'assistenza tecnica 

fi fili afifiPQQnri fi 

No! Noi non vendiamo solo computers. 

Ma mettiamo a disposizione tutte le risorse che sol¬ 
tanto una grande organizzazione può offrire. Questo 
è il segreto della nostra continua affermazione. 

No! Noi non vendiamo solo computers. 


■ Via Nizza, 48/50/52 1 06/844.84.18 

■ Via Nizza, 26/28/30/32 1 06/844.11.36 

■ Via Soana, 24/26/28 T. 06/759.15.44 

■ Via P. Fiscali, 257/257a/257bT. 06/811.02.43 

■ ViaQ. Majorana, 149/153/155 

T. 06/55.77.39*4-55.88.852 

■ Ass. Tee.: ViaTerni, 86/86a/86b T. 06/757.89.36 
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all’altezza dei tuoi problemi. Sempre, 


tabase individualizzate, compieta- 
mente su misura. Ci vuole un po’ di 
tempo per imparare come predispor¬ 
re una sequenza, ma una volta che lo 
si è appreso le sequenze aumentano 
grandemente la potenza del program¬ 
ma, e rendono assai più agevole l'in¬ 
troduzione dei dati. 

OverVUE ha una potente caratteri¬ 
stica macro la quale vi permette di 
creare fino a 20 macroistruzioni che 
eseguono stringhe di procedure al 
tocco di un tasto. Normalmente si u- 
sa l'accessorio Notebook del menù 
Mela per scrivere una serie di codici 
sotto forma di testo per la sequenza 
delle operazioni. Le macro che scri¬ 
vete in questo modo compaiono nel 
menù Do e possono essere scelte se¬ 
condo le esigenze. Questa procedura 
è più difficile e tediosa dell’uso del 
mouse per predisporre le macro, ma 
la struttura basata sul testo vi per¬ 
mette di modificare le vostre macro 
quando apportate cambiamenti alla 
struttura del database. Per esempio, 
una macro registrata diventerà inuti¬ 
le se la colonna alla quale si riferi¬ 
sce viene rimossa. Con la macro di 
OverVUE basata sul testo potete eli¬ 
minare il riferimento alla colonna 
senza dover rifare l'intera procedura. 

File, MacLion e Helix non effet¬ 
tuano macro. MacLion offre però il 
LEO, un linguaggio di programma¬ 
zione simile al Forth, che vi permet¬ 
te di progettare voi le vostre applica¬ 
zioni professionali specializzate nel¬ 
lo spirito di un programma di databa¬ 
se molto diffuso, il dBase III. 


Velocità e memoria 

La velocità è un parametro diffici¬ 
le da usare per il confronto fra que¬ 
sti programmi di database. Quando i 
database vengono indexati l'ordina¬ 
mento richiede solo frazioni di secon¬ 
do. I nostri test mostrano che Over¬ 
VUE è il più veloce dei cinque pro¬ 
grammi. Questo è prevedibile in un 
programma basato sulla Ram. E' no¬ 
tevole anche il fatto che MacLion e 
Omnis 3, due programmi basati su 
disco, sono stati in grado di ordinare 
100 record in meno di un secondo, 
quasi la stessa velocità del program¬ 
ma OverVUE basato sulla Ram (ta¬ 
vola 1). Il fatto che Helix fa affida¬ 
mento su molte caratteristiche del 
Mac lo rallenta, ed esso esegue l’ordi¬ 
namento molto più lentamente degli 
altri programmi. Anche File è piut¬ 


tosto lento nell'effettuazione di ordi¬ 
namenti e ricerche. 

Un test della velocità più rilevante 
dal punto di vista dell'utente è il tem¬ 
po che occorre per predisporre un da¬ 
tabase e produrre diversi prospetti. 
Se questo tipo di confronto è più ap¬ 
propriato delle prove di valutazione 
per determinare l'effettiva velocità 
del programma, i fattori in gioco so¬ 
no però tanti che è difficile fare con¬ 
fronti di senso concreto. 

Per i seri utenti professionali il 
Mac 512K e un hard disk sono requi¬ 
siti essenziali per evitare di trovarsi 
molto rapidamente senza spazio sul 
disco. Dato che Helix, MacLion, Fi¬ 
le e Omnis 3 sono basati su disco la 
loro capacità massima è limitata dal¬ 
lo spazio disponibile sul disco. Om¬ 
nis 3 ha superato la limitazione del 
Finder che confina le dimensioni del 
file a un massimo di 16,5 mega¬ 
byte, il file più grande disponibile 
per gli utenti di MacLion e Helix. 
Le dimensioni massime del file per 
Omnis 3 sono di 65 megabyte, che 
dovrebbero essere sufficienti anche 
per l'utente più esigente. 

La principale limitazione di Over¬ 
VUE è che tiene nella Ram l'intero 
database di lavoro. Potete unire due 
database, ma il database risultante de¬ 
ve ancora trovar posto nella Ram. O- 
verVUE cerca di compensare questo 
fatto usando una tecnica di compatta¬ 
zione per l'immagazzinamento in 
memoria dei dati. Sia in OverVUE 
sia in Helix gli spazi vuoti all'inter¬ 
no dei campi non sono immagazzi¬ 
nati sul disco. 

Gli altri programmi qui esaminati 
allocano un numero fisso di spazi 
per ogni campo e immagazzinano 
sul disco questi spazi, e così pure le 
introduzioni per tutti i campi non 
vuoti. Ciò significa che i file di O- 
verVUE sono dal 40% al 60% più 
piccoli dei file con lo stesso quantita¬ 
tivo di dati generati dagli altri quat¬ 
tro database manager. Se prevedete 
di dover creare vasti database che ri¬ 
chiedano più di 345K di memoria 
non usate OverVUE. 


Capacità relazionali 

I database relazionali offrono 
un'ulteriore flessibilità agli utenti 
commerciali perchè consentono di fa¬ 
re relazioni fra file diversi del databa¬ 
se. Potete tenere un elenco dei clien¬ 
ti in un file e i dati di fatturazione e 
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Un Club per te. 

Un Club nato per 
aiutarti 

„ a imparare senza 
fatica il Basic. 

Un Club nato per 
fornirti routine 
già pronte che ti 
permetteranno di 
scrivere programmi 
da professionista 
per il tuo Macintosh. 
Un Club pieno 
di scambi di idee fra 
i soci, di consigli, à 
di programmi, I 
di suggerimenti. M 


1 


Il Basic Microsoft per 
Macintosh è 
facile e può dare 
grandi soddisfazioni. 
Imparare a usarne 
tutte le potenzialità 
diventa ancor 
più facile iscrivendoti 

subito al 
Mac Basic Club. 

I Infatti, se il Basic 
Microsoft 2.1 
ancora non 
l'hai, iscriverti 
al Mac Basic Club 
non costa 
proprio nulla. 


a' 


le informazioni di credito per questi 
clienti in un altro file. Questo riduce 
le dimensioni dei vostri file permet¬ 
tendovi al tempo stesso di aggiorna¬ 
re il file dei dati senza dover aggior¬ 
nare anche il file dei clienti. Quando 
i file vengono messi in relazione cer¬ 
ti campi vengono connessi fra loro 
e potete usare i campi come se fosse¬ 
ro uno solo. Questo trasforma i pro¬ 
grammi di database da semplici ge¬ 
stori di liste a potenti strumenti d’af¬ 
fari. 

MacLion è un database manager 
completamente relazionale, e suppor¬ 
ta relazioni da uno a uno e da uno a 
molti. Permette perfino di introdurre 
dati in due file nello stesso tempo. 
Anche Helix permette di correlare i 
campi, ma non con la potenza di Ma¬ 
cLion. Omnis 3 è un database mana¬ 
ger interamente relazionale che vi dà 
il potere di mettere in relazione diver¬ 
si file per creare complesse applica¬ 
zioni commerciali, come il debito 
verso i fornitori e l'analisi dei costi 
di lavoro. OverVUE vi permette di u- 
nire fra loro due database con campi 
correlati. Il procedimento è alquanto 
tedioso ma la caratteristica fa di que¬ 
sta versione di OverVUE uno stru¬ 
mento d’affari più utile delle prece¬ 
denti versioni. Microsoft File non 
può correlare i file. 

Quale è più utile a chi 

Microsoft File è ideale per l'utente 
finale che non ha bisogno di una ple¬ 
tora di complesse caratteristiche. 
Anche le sue applicazioni più sofisti¬ 
cate sono molto facili da usare. 


Se vi occorrono caratteristiche pro¬ 
fessionali più complesse e la possi¬ 
bilità di mettere in relazione i file 
prendete in considerazione gli altri 
programmi. MacLion è il più poten¬ 
te di questi programmi, ma è adatto 
soprattutto al consulente che sta svi¬ 
luppando applicazioni professionali, 
dato che si può usare il linguaggio 
di programmazione di MacLion per 
creare programmi su misura. 

Omnis 3 offre la possibilità di 
personalizzare il programma in con¬ 
formità con le vostre esigenze. Si di¬ 
stingue inoltre nei settori dell'intro- 
duzione di dati, dei prospetti e delle 
dimensioni massime del file. E' in 
programma una versione multi-uten- 
te. Se Omnis 3 è probabilmente il 
package più potente che abbiamo e- 
saminato occorrerà una buona quanti¬ 
tà di lavoro e di esperienza di pro¬ 
grammazione per sfruttare appieno il 
suo potenziale. 

Helix e OverVUE, che sono mol¬ 
to diversi nella struttura, sono anche 
i due programmi più innovativi che 
abbiamo esaminato. Helix è facile 
da apprendere, perchè si scavalca la 
normale struttura dei database usan¬ 
do icone e finestre. Con il procedere 
dell’apprendimento i suoi modi appa¬ 
rentemente infiniti di progettazione 
interesseranno anche il serio utente 
commerciale. Tuttavia con Helix vi 
troverete a passare un po' di tempo 
con il manuale per imparare a usare 
il programma. 

OverVUE non solo è facile da alle¬ 
stire, è anche il più facile per l'intro¬ 
duzione dei dati. I suoi strumenti per 
l'introduzione di dati ripetitivi ridu¬ 
cono al minimo il tempo di battitu¬ 


ra. OverVUE è anche il più veloce 
dei programmi esaminati perchè con¬ 
serva in memoria l'intero database. 
Dato che anche l'intero prgramma è 
residente si tratta del programma i- 
deale se non avete un hard disk. Le 
dimensioni del database che create so¬ 
no però limitate alle dimensioni del¬ 
la Ram libera. Per i più questo non 
sarà un problema, dato che le tecni¬ 
che di immagazzinamento compatto 
dei dati di OverVUE vi permettono 
di immagazzinare circa 5.000 record 
in oltre 300K di Ram accantonati 
per il vostro file. Ma se prevedete di 
dover creare file molto grandi guarda¬ 
te uno degli altri programmi. Per a- 
vere il meglio sarebbe cosa semplice 
trasferire i dati da uno dei program¬ 
mi di database basati su disco al pro¬ 
gramma OverVUE basato sulla 
Ram. 

Il passo seguente nella scelta di un 
programma di database per il Mac 
consiste nel restringere la scelta a 
due o tre di-questi programmi, anda¬ 
re dal fornitore e provarli. 

Per quanto possano occorrere 20 
ore per diventare esperti in uno di 
questi potenti programmi il vostro 
"giro di prova" dovrebbe comprende¬ 
re la progettazione di un semplice da¬ 
tabase e l'introduzione di almeno 30 
record. Questo vi darà la sensazione 
della facilità con cui potrete creare 
un database e introdurre i dati. 

Se a introdurre concretamente i da¬ 
ti saranno altri assicuratevi di poter 
insegnar loro a usare il programma. 
Con la preveggenza e l'attenzione po¬ 
trete assicurarvi un proficuo e duratu¬ 
ro rapporto con il vostro database 
per il Mac. 



PUOI ESSERE COSI’ CONTENTO 
CON IL TUO SOFTWARE? 


Allora spedisci subito il tagliando per una prova GRATIS 
se vuoi facilmente imparare e creare tu stesso il software 
con il corso BASIC dell’IST. 


74A 

I5T La scuola del progresso 

Via S. Pietro 49 - 21016 LUINO (VA) - Tel. 0332/53.04.69 

Sì, desidero ricevere ■ in visione gratuita, con invio raccomandato e 
senza alcun impegno - la prima dispensa in Prova di Studio per un 
periodo massimo di 3 settimane. Se io non Vi ritornerò la dispensa 
entro tale termine, sarò automaticamente iscritto al Vostro corso 
di BASIC e riceverò regolare conferma. 

Cognome___ 

Nome ___ Età_ 

Via__N._ 

CAP _ Città__ 


















Sette minuti 
e la chiave 


del Mac Basic 
Club è tua 


Sette minuti possono aprirti la porta 
di un nuovo mondo: quello dei ^ 
programmi scritti da te come 
servono a te, sulla misura 
delle tue esigenze. Sette minuti 
bastano per decidere di entrare 
nel Club di chi sa ottenere dal 
suo Macintosh esattamente ^ 
quello che vuole. Il Mac Basic Club 
ti offre proprio questo: tutorial in 
italiano, routines, trucchi e segreti, 
suggerimenti, idee. In pratica il Club 
offre tutto il supporto che ti è 
necessario per imparare senza 
fatica il Basic Microsoft. E te lo 
offre gratis se non possiedi ancora il 
Microsoft Basic 2.1. Iscrivendoti al 
Mac Basic Club riceverai infatti, 

subito e direttamente 
al tuo indirizzo, 
il Microsoft 
Basic 2.1 in 
confezione 
originale 
completa di 
manuale, 
più il primo 
numero del 
bimestrale su dischetto del 
Mac Basic Club. Gli altri cinque dischetti 
ti verranno spediti via via che verranno 
pubblicati. Ma tu pagherai solo il prezzo 
del Microsoft Basic 2.1, e cioè 327.000 
lire (più Iva 9%). Ma anche se possiedi già 
il Basic puoi iscriverti al Mac Basic Club 
in questo caso riceverai solo i sei numeri 
del bimestrale su dischetto del Club, e 
pagherai 160.000 lire (più Iva 9%). 


TD W* 

basic 
Club 



Il Microsoft Basic permette di 
programmare in un ambiente 
altamente interattivo, 
sfruttando tutte le potenzialità 
_ di Macintosh: la grafica, 

* il suono, le finestre, i menù. 

Comprende strutture 
di controllo avanzate come le 
istruzioni PRINT USING, 
IF/THEN/ELSE, WHILE/WEND, ecc. 
In più, rispetto al Microsoft Basic 2.0, 
il Microsoft Basic 2.1 è in pratica 
due volte più veloce. 
Ed è sicuramente il 
linguaggio che più 
rapidamente e più 
facilmente ti farà 
ottenere risultati 
davvero 
professionali. 
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Mac Basic Club è un'iniziativa 
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SOFTWARE 


Computi metrici, prezziari, disegno tecnico, oltre alla gestione 
dello studio: il computer sembra fatto apposta per loro. 
Eppure architetti e ingegneri lo utilizzano ancora poco, e le software 
house non investono ancora abbastanza in questa direzione. 

Ma quali programmi si trovano sul mercato? 

Quanto valgono? Cosa fanno? 

Quali programmi 
per il progetto 


"Con un personal computer posso 
fare a meno di tutta la scrivania, for¬ 
se di tutto fufficio, ma non della ma¬ 
tita. Può archiviare, scrivere, conta¬ 
re, telefonare e ricordarsi tutto: ma il 
rapporto peculiare che c’è tra me e i 
miei disegni non lo può ricreare." 

Ma fino a che punto ha ragione 
l'architetto che la pensa così? Fatto 
Salvo naturalmente il suo diritto a u- 
na certa artigianalità da artista^ non 
c’è in ballo anche un po’ di disinfor¬ 
mazione? 

In fin dei conti progettare non si¬ 
gnifica solo lavorar di riga e compas¬ 
so: calcoli complessi, grandi moli di 
dati da elaborare, elementi ripetitivi 
e cliché anche a livello grafico non 
mancano; e solido piedestallo alla 
creatività sono un non breve lavoro 
d'archivio e una non piccola fatica a 
base di conteggi e preventivi. 

Ingegneri progettisti e architetti, 


urbanisti e designer costituiscono ca¬ 
tegorie professionali " ad alta tecnolo¬ 
gia", eppure ancora poco avvezze a u- 
tilizzare strumenti informatici per 
snellire tempi e costi di lavorazione 
in fase di calcolo e progettazione, 
grafica e realizzazione di disegni; po¬ 
co informate sull’esistenza di solu¬ 
zioni predeterminate in cui procedu¬ 
re, elaborazioni, archivi, dati da ana¬ 
lizzare, risultati e struttura dei flussi 
informativi sono programmati a 
priori in funzione di schemi organiz¬ 
zativi esistenti e di problemi ben in¬ 
dividuati. 

Categorie anche un po’ neglette, 
forse, da chi il software lo produce: 
abbondano le applicazioni rivolte ai 
consulenti commerciali finanziari, al 
mondo della pubblicità e della grafi¬ 
ca, ai marketing manager, agli addet¬ 
ti alle telecomunicazioni, alle ban¬ 
che dati, ma solo il 30% circa del so¬ 


ftware in circolazione si rivolge a- 
gli ingegneri progettisti e costrutto¬ 
ri, o agli architetti. 

Che cosa offre loro, insomma, il 
mercato? Molto e poco nello stesso 
tempo; molte macchine diverse tra 
loro in prestazioni o costi, e poco 
per quanto riguarda un parco serio di 
software dedicato; un "poco", però, 
estremamente valido e qualificato, 
per cui , in un certo senso, si com¬ 
pensa da sé. 

Per Apple Ile o Ile 

• Celerimensura (produzione Inter- 
studio, distribuzione Iteco, prezzo 
330 mila lire più Iva). 

Questo programma consente di ese¬ 
guire il calcolo delle distanze, delle 
coordinate spaziali e delle aree relati¬ 
ve a rilevamenti topografici celerime- 
trici. Gli angoli possono essere ac¬ 
cettati in forma sessadecimale, sessa¬ 
gesimale e centesimale, per cui il si¬ 
stema di riferimento può essere scel¬ 
to a piacere dall’utente, con la possi¬ 
bilità di avere l’origine del sistema 
in alto o in basso; inoltre si può pre¬ 
definire e quindi preselezionare a pia¬ 
cere Terrore massimo ammesso sulle 
letture. 

La caratteristica più interessante di 
questo programma consiste nel fatto 
che i dati costanti vengono registrati 
su dischetto, ma possono essere mo¬ 
dificati in qualsiasi momento, a di¬ 
screzione dell'operatore, su varie ri¬ 
chieste: per esempio il tipo di stru¬ 
mento impiegato, la costante stru¬ 
mentale, la graduazione sui cerchi. 
Ovviamente, una volta registrati, tut- 
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ti i dati sono disponibli per qualsiasi 
ricerca successiva. 

La parte relativa al calcolo delle a- 
ree viene effettuato con la semplice 
introduzione dei numeri di riferimen¬ 
to dei vertici del poligono interessa¬ 
to, che poi può essere visualizzato 
a video in scala, e orientato per 
un'immediata verifica dell'esattezza 
dei dati. 

A fianco di tutto ciò poi si ha an¬ 
che la possibilità di ottenere dei gra¬ 
fici, archiviabili anch'essi su dischet¬ 
to, e richiamabili di volta in volta 
insieme a tutti gli altri dati, riferi¬ 
menti e risultati, per essere stampati 
come relazione completa. 

• Sicpack (per il Ile, produzione e 
distribuzione Softing, prezzo da con¬ 
cordare a seconda delle configura¬ 
zioni). 

La prima procedura di questo pro¬ 
gramma si chiama TDR, e consente 
di sviluppare l'analisi statica e dina¬ 
mica degli edifici e dei telai tridimen¬ 
sionali a impalcati rigidi, in zona si¬ 
smica. L'analisi dinamica viene effet¬ 
tuata attraverso l'analisi modale e 
con la tecnica dello spettro di rispo¬ 
sta, in cui il caricamento dei dati av¬ 
viene con tabelle richiamabili in o- 
gni momento, ma soprattutto para- 
metrizzabili, ovvero con la possibili¬ 
tà di riassegnare e modificare gli ele¬ 
menti delle tabelle stesse. L'archivio 
per la gestione di tutti i dati memo¬ 
rizzatali è gestito in automatico dal 
programma, insieme alla grafica in 
doppia risoluzione, per la rappresen¬ 
tazione dei risultati e il controllo del¬ 
la geometria della struttura; quest'ul- 
tima poi viene rappresentata e de¬ 
scritta tramite telai tipo, che sono as¬ 
semblati alla fine in pianta anche 
non ortogonalmente. Contempora¬ 
neamente all'analisi dinamica si può 
effettuare anche un'analisi statica, 
con due condizioni di carico per ave¬ 
re, in una sola fase di calcolo, la de¬ 
scrizione dettagliata del comporta¬ 
mento della struttura. 

Il secondo pacchetto si chiama 
SEC. Con esso è possibile eseguire 
verifica e progetto di travi in cemen¬ 
to armato, di travi in cemento arma¬ 
to pressotenso inflesse, di sezioni 
circolari, rettangolari e a T. Tutti i 
dati relativi alle varie sezioni sono 
raccolti in una tabella e possono es¬ 
sere modificati grazie alluso di una 
procedura di text editor. Inoltre trami¬ 
te un'opzione da tastiera si può ese¬ 
guire il calcolo di verifica o di pro¬ 
getto, in modo tale che il risultato 


Il parere dell'architetto 

Applicando ha voluto che la prova su strada del pacchetto Da Vinci per il 
disegno architettonico venisse realizzata in uno studio di progettazione. I cin¬ 
que programmi che ne fanno parte sono stati esaminati e utilizzati per varie 
realizzazioni dall'architetto Ruggero Marzotto. Ecco, per punti, la pre¬ 
sentazione critica del pacchetto. 

1. Il programma offre oggetti architettonici o pezzi urbani "pre disegnati", 
i quali possono essere usati quali matrici per composizioni, aggregazioni, 
ingrandimenti differenziati eccetera. 

2.1 movimenti possibili, offerti in vasta gamma, consentono di ruotare e 
controllare spazialmente il singolo pezzo, così come le intere composizioni. 

3. Anche le diverse componenti edilizie o urbane (tetti, verande, abbaini, 
recinzioni, giardini, alberature; blocco edificato, tipo edilizio, eccetera) pos¬ 
sono essere disaggregate del tutto e variate. 

4. La ri aggregazione o la variazione a partire dalla gamma di base consen¬ 
tono di inventare nuove situazioni compositive. 

5. La progettualità e la ricchezza creativa trovano il loro ovvio limite nel 
fatto che, per una impostazione corretta del fare progettuale, il punto di par¬ 
tenza è costituito dal contesto, dall'ambiente, dalle esigenze del committen¬ 
te, dalle funzioni eccetera. La forma nasce e si articola lungo un pro¬ 
cesso quanto meno biunivoco e dialettico (repertorio di tipi e situazio¬ 
ni compositive, certo; ma anche e soprattutto "invenzione" di rispo¬ 
ste a situazioni date). 

6. Utile sembra invece l'applicazione per simulare, alla scala dell'insie- 
me, elementi aggregativi e composizioni volumetriche; bilanciamento di 
vuoti e pieni, di edificato e spazi verdi; ancora, per sostenere ragionamenti 
di massima e di impostazione con verifiche e immagini puramente esempli¬ 
ficative. 

7. L'importante, nel delicato campo della costruzione di forme, è di non 
condizionare mai l'esito finale, la proposta compiuta, con situazioni pre con¬ 
fezionate. Il programma e il repertorio vanno intesi, come nella maggior par¬ 
te dei casi, e forse in questo ancora di più, come strumenti di lavoro, sapen¬ 
do che la matita è, per l'architetto, tramite insostituibile fra i suoi pensieri e 
la realtà. 

8. Una nota a margine. Forse, nel campo della tecnologia edilizia, c'è uno 
spazio maggiore per programmi di questo tipo. Prefabbricazione leggera, ele¬ 
menti di carpenteria , infissi e pannelli, moduli murari basati su blocchi e 
mattoni eccetera potrebbero utilmente essere archiviati e utilizzati via via 
con le modifiche e le integrazioni del caso. 

Ecco nomi e prezzi dei cinque programmi Da Vinci, prodotti dalla Hayden 
Software e distribuiti da Bits & Bytes: Building blocks 230.500 lire; Buil- 
dings 142.000 lire; Commercial interiors 573.000 lire; Interiors 142.000 li¬ 
re; Landscapes 142.000 lire. A questi prezzi va aggiunta l'iva (9%). 
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Apple MI' Il sis 
dal bozzetto 


Questa è la bozza del vostro notiziario 
aziendale, così come lo fareste, con 
tutte le vostre indicazioni, aggiunte, 
correzioni di testo, modifiche 
all'immagine grafica... 
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...e questo è il vostro notiziario 
aziendale finito e stampato proprio 
come lo volete voi. Impaginato, 
redatto, illustrato, assemblato da Apple 
EdIT in metà tempo e fatto tutto da 


Apple e il marchio Apple sono marchi registrati della Apple Computer Ine. LaserWriter, MacDraw sono marchi della Apple Computer Ine. Macintosh è un marchio Mclntosh Laboratory Ine. 
è usato su sua licenza. Page Maker è un marchio Aldus Corporation. Microsoft è un marchio Microsoft Corporation. ReadySetGo è un marchio di Manhattan Graphics. 





a cr 


tema più veloce 
alla stampa. 



Qui a fianco, un notiziario aziendale 
in bozza come lo fareste voi. 

A sinistra in basso, la stampa finita del 
notiziario come la volete voi. 

A destra, Apple® EdIT, il sistema 
che, finalmente, fa tutto il lavoro 
per voi. 

Apple EdIT è il più rivoluzionario 
sistema integrato per realizzare 
qualunque tipo di documento o 
stampato, dalla bozza iniziale alla 
stampa finale; libri, riviste, relazioni, 
cataloghi, listini, manuali, etc. 

La cosa di per sè è molto 
apprezzabile; ma lo è ancor di più se 
tenete conto che con Apple EdIT si 
evitano tutti gli sprechi di tempo 
tipici dei metodi tradizionali di 
stampa. Il che vuol dire meno gente 
impegnata nella realizzazione, 
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ReadySetGo, 
realizzato dalla 
Manhattan 
Graphics. 

Microsoft Word, 
realizzato dalla 
Microsoft. 
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PageMaker, 
realizzato dalla 
Aldus Corporation. 


MacDraw, 
realizzato dalla 
Apple Computer. 


nessuna esecuzione da fare fuori 
azienda e, soprattutto, costi ridotti 
all’osso. 

Quindi un guadagno totale sotto ogni 
aspetto. 

Il sistema Apple EdIT è formato da 
un computer Macintosh" 512K, 
oppure dal nuovo Macintosh" Plus, 
con maggiore potenza e velocità; più 
la sofisticata stampante LaserWriter" in 
grado di stampare con ben 35 


caratteri tipografici diversi e realizzare 
qualsiasi composizione su carta, 
lucido, buste, etichette. 

Il software a disposizione di Apple 
EdIT comprende tra l’altro; 
PageMaker", Microsoft" Word, 
ReadySetGo" e MacDraw" 

Ognuno di loro permette tali e 
tante soluzioni di grafica, testi, 
impaginazione, sillabazione in 
italiano, stampa e illustrazione da 
soddisfare al meglio qualsiasi 
esigenza. 

Tutto questo è Apple EdIT. Vi pare 
poco? 

A noi no, ma se volete sapere 
perchè Apple EdIT è il sistema che fa 
proprio per voi e tutto per voi, venite a 
conoscerlo meglio in un 
Apple Center. Gli indirizzi sono sulle 
Pagine Gialle. 


* Editoria Individuale Testo-grafica. 




Ecco la sofisticata stampante LaserWriter: in pochi secondi, esattamente come lo 
desiderate, stampa tutto ciò che avete realizzato su Macintosh. Dal computer, alla 
stampante, direttamente a voi! 


W. Apple Computer 





























sia riportato immediatamente sulla 
stessa tabella. 

La terza procedura, detta BEW, per¬ 
mette di eseguire l'analisi statica su 
travi su suolo elastico secondo il 
modello di Winkler. La parte di cal¬ 
colo avviene secondo un metodo di e- 
lementi finiti in cui la matrice di ri¬ 
gidezza dell'elemento viene diretta- 
mentedesuntadallerelazionidifferen- 
ziali che governano la problematica; 
in tal modo vengono considerati i ca¬ 
richi sia distribuiti sugli elementi, 
sia concentrati nei nodi. La matrice 
di rigidezza della struttura è inverti¬ 
ta e gestita tramite una routine in 
linguaggio macchina, che consente 
quindi una notevole rapidità di esecu¬ 
zione e una reale progettazione inte¬ 
rattiva. Il tutto consente poi di poter 
rappresentare le deformazioni e i gra¬ 
fici del taglio e del momento di ta¬ 
glio, con il calcolo relativo alle pres¬ 
sioni sul terreno. 

La quarta procedura è chiamata 
TPS. Con essa è possibile eseguire 
un'analisi statica dei telai piani con 
il metodo degli elementi finiti di 
strutture intelaiate piane. Quindi si 
possono trattare telai di qualsiasi for¬ 
ma e discretizzare anche forme curvi¬ 
linee aventi qualsiasi tipo di vincolo 
sia esterno che interno. L'analisi 
può avvenire contemporaneamente 
su tre condizioni di carico sia sugli e- 
lementi che sui nodi, con succesiva 
rappresentazione grafica della cosid¬ 
detta deformata e dei diagrammi di ta¬ 
glio e di momento. 

La quinta e ultima procedura, detta 
DBD, consente il progetto e il dise¬ 
gno di armature metalliche in cemen¬ 
to armato. Viene eseguito il disegno 
delle armature metalliche in cemen¬ 
to armato secondo le normative ita¬ 
liane, con indicazione delle disposi¬ 
zioni, delle lunghezze, e dei diametri 
dei ferri longitudinali, dei sagomati 


e delle staffe, consentendo anche 
combinazioni di carico tramite coeffi¬ 
cienti moltiplicativi. Con questa pro¬ 
cedura si possono avere i grafici de¬ 
gli inviluppi delle sollecitazioni di 
taglio e dei momenti flettenti, non¬ 
ché di quelli resistenti. 

• Computo metrico estimativo (di¬ 
stribuzione Personal Data, prezzo 1 
milione più Iva). 

Il programma si compone di due 
fasi: la creazione e la gestione del co¬ 
siddetto prezziario, e la generazione 
del computo con stima. 

Il prezziario è formato da una serie 
di procedure che consentono di edita¬ 
re, correggere e stampare, sia parzial¬ 
mente sia completamente, le voci i- 
nerenti a opere o materiali edili, se¬ 
condo uno schema che prevede un co¬ 
dice, una descrizione, una quantità e 
un prezzo unitario; tale archivio con¬ 
sente attraverso i codici o la descri¬ 
zione di individuare gli articoli me¬ 
morizzati, che possono anche essere 
modificati successivamente. Questa 
procedura prevede una descrizione 
per ogni tipo di opera, ed è possibile 
stabilire la lunghezza di ogni descri¬ 
zione per ottimizzare spazio su di¬ 
schetto e memoria del computer. E' 
da notare che tutti i dati caricati da ta¬ 
stiera sono controllati rigorosamen¬ 
te, per evitare errori di battitura. 

La generazione di Computo metri¬ 
co consente la compilazione del com¬ 
puto partendo dal prezziario, da cui 
sono richiamabili le singole voci e 
assegnandone la quantità, con la 
possibilità di aggiungere un'eventua¬ 
le ulteriore descrizione. Alla fine si 
può memorizzare su dischetto il 
computo, con la possibilità di stam¬ 
parlo provvisoriamente, definitiva¬ 
mente o semplicemente senza i prez¬ 
zi, per eventuali controlli supple¬ 
mentari. 

• Carpenter (produzione Interstu- 


dio, distribuzione Iteco, prezzo 1 mi¬ 
lione 180 mila lire più Iva). 

E’ un'insieme molto interessante 
di procedure interattive e integrate 
per il progetto e il disegno esecutivo 
di strutture in cemento armato, che 
consente di risparmiare tempo pre¬ 
zioso allo studio tecnico che la uti¬ 
lizzi. Infatti esso unisce semplicità e 
versatilità d'uso di un programma 
moderno di elaborazione testi all'in- 
temo di complesse strutture in ce¬ 
mento armato, facilitando con la sua 
interattività il lavoro all’operatore. 

Con Carpenter si possono trattare 
travi complesse, fino all campate 
diverse, aventi pilastri posizionati in 
qualsiasi modo, addirittura anche 
non sovrapposti o mancanti del tut¬ 
to, con sbalzi con o senza pilastrino 
per il collegamento alla travata su¬ 
periore. 

Inoltre per ogni coppia di campate 
d'estremità si possono analizzare va¬ 
rie situazioni di carico, come carichi 
uniformi trapezoidali o triangolari e 
forze concentrate, il tutto fino a un 
massimo di quattro situazioni di cari¬ 
co contemporanee, con successivo 
inviluppo delle sollecitazioni. 

La gestione è affidata a un editor 
grafico per l'introduzione dei ferri 
d'armata, che consente l'inserzione, 
la cancellazione e la visione conti¬ 
nua dell'intera area di momento resi¬ 
stente necessaria o coperta. 

Ovviamente il video rappresenta 
l'intero foglio di lavoro, e su di esso 
appare il disegno così come verrà tra¬ 
sferito su stampante o su plotter. I- 
noltre il programma fornisce la pos¬ 
sibilità di eseguire zoom e sposta¬ 
menti lungo il disegno per la visio¬ 
ne dei particolari, di rappresentare 
graficamente i ferri da usare per le co¬ 
struzioni e di definire i parametri ca¬ 
ratteristici del disegno, inclusa la ge¬ 
stione del foglio. 

• Space (distribuzione S.I.E.D. In¬ 
formatica Srl, prezzo non comuni¬ 
cato). 

Il programma Space permette l'ana¬ 
lisi e la verifica di una struttura inte¬ 
laiata in cemento armato, con even¬ 
tuali pareti di taglio e nuclei irrigi¬ 
denti oltre a strutture di controvento 
del tutto generiche, fomite come ma¬ 
trici di flessibilità traslate. Le azioni 
sismiche vengono calcolate con l'a¬ 
nalisi statica direttamente dal compu¬ 
ter che esegue l'analisi dei carichi. Il 
programma esegue una rigorosa ri- 
partizione delle forze sismiche tra i 
vari elementi di controvento, e appli- 


Per saperne di più 

La rassegna di queste pagine non è certo esaustiva: i pacchetti applicativi per 
ingegneri e architetti sono molti di più. Per una panoramica completa fate rife¬ 
rimento alle Pagine del software e dellhardware per Apple. Se ancora non le a- 
vete, potete richiederle a Editronica, con il tagliando di pag. 104. 

Dei programmi citati, ecco comunque l'indirizzo dei distributori, presso i qua¬ 
li è possibile rivolgersi per ottenere ulteriori informazioni: Italsoft, via 
Don Minzoni 4, Matera, telefono 0835 214423; Iteco, via dell'Osser¬ 
vanza 88, Bologna, telefono 051 583008; Lucana Sistemi, via 
Cavallotti 12, Rovigo, telefono 0425 361188; Microsoftware, via Me¬ 
nicucci 1, Ancona, telefono 071 22380; Personal Data, via Brozzoni 4, 
Brescia, telefono 030 222998; SIED Informatica, via Nicola 35/37, Be¬ 
nevento; Softing, via Reggio Calabria 6, Roma, telefono 06 4248732. 
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Figura 1. Videata di MacSAP, per l'analisi statica e dinamica. 



ca le forze così calcolate ai vari te¬ 
lai che vengono risolti con il meto¬ 
do delle deformazioni; infine calcola, 
in cascata, le travi di fondazione col 
modello Winkler oppure i plinti. 

Space si differenzia da tutti gli al¬ 
tri programmi simili perché applica 
le tecniche della programmazione ge¬ 
stionale ai calcoli più sofisticati di 
ingegneria. Esso cura in particolar 
modo le procedure di introduzione 
dei dati al fine di ottenere la massi¬ 
ma flessibilità e velocità operativa, 
con la seguente stampa dei tabulati 
in cui sono riportati i risultati dei 
calcoli e i dati introdotti, in modo ta¬ 
le da risultare direttamente allegabili 
alla relazione di calcolo. 

Tutti i dati vengono memorizzati 
su dischetto, e possono essere richia¬ 
mati in qualsiasi momento per modi¬ 
fiche o future rielaborazioni. Infine 
il programma consente la visualizza¬ 
zione e la stampa, in scala, di tutte 
le piante degli impalcati, di tutti gli 
schemi dei telai e della prospettiva 
dell'intera struttura, osservata da un 
qualunque punto di vista scelto dal¬ 
l'utente. 

Per Macintosh 512 
o Macintosh Plus 

• Programmi di uso genera¬ 
le: MacWrite o Microsoft Word co¬ 
me potenti applicativi per la gestio¬ 
ne e il trattamento dei testi, la prepa¬ 
razione di stampe o relazioni di ogni 
genere, con la possibilità di mescola¬ 
re testo e grafica in maniera comple¬ 
ta; Multiplan, foglio elettronico di 
calcolo, perfettamente utilizzabile 
sia per la piccola gestione contabile 
dello studio, sia per calcoli di natura 
tecnico scientifica; MacProject, pro¬ 
gramma Pert, per l'analisi e la ge¬ 
stione dello stato degli avanzamenti 
di progetti o di lavori che richiedono 
di essere seguiti giorno dopo giorno, 
con un costante riferimento alle ri¬ 
sorse, allo sviluppo e ai costi; Ma- 
cDraw, potente pacchetto di grafica 
tecnica, che consente di disegnare e 
progettare elementi di natura tecnica 
con estrema facilità e rapidità d’uso. 
Infatti basta un click del mouse per 
comporre linee, rettangoli, quadrati, 
curve, ellissi, cerchi e per aggiunge¬ 
re testi, didascalie, etichette o titoli 
con lo stile che si preferisce e con 
la grandezza del carattere voluta; Ma- 
cDraft, molto simile a MacDraw, 


che in più possiede la caratteristica 
di poter ruotare gli oggetti lungo il 
loro asse centrale anche di 1 grado 
per volta e che consente la quotatura 
automatica dei disegni effettuati. 

• CompuMac (distribuzione Luca¬ 
na Sistemi, prezzo non comuni¬ 
cato). 

Questo programma permette di ot¬ 
tenere dei computi metrici estimati¬ 
vi partendo dalla gestione di un archi¬ 
vio di 600 voci per il libri elenco 
prezzi, con 600 sottovoci e 1.000 ri¬ 
ghe per ogni lavoro. Tale archivio è 
modificabile in funzione delle varia¬ 
zioni di prezzo o delle voci descritti¬ 
ve, e consente di ottenere delle stam¬ 
pe di listini. Dall’archivio prezziario 
quindi si possono ricercare le voci 


che interessano per creare il compu¬ 
to metrico estimativo, che a sua vol¬ 
ta può essere memorizzato, stampa¬ 
to e modificato in qualsiasi momen¬ 
to, a richiesta dell'operatore. 

• Legge 373 (distribuzione Micro- 
Software, prezzo 500 mila lire più 
Iva). 

Con questo package è possibile a- 
nalizzare e verificare l’isolamento ter¬ 
mico nei fabbricati a norma della leg¬ 
ge 373. Il programma consente di 
creare un archivio permanente di 
1.000 tipologie disperdenti, e per¬ 
mette di verificare l'intero fabbricato 
e tutti i singoli locali con la possibi¬ 
lità di modificare i tipi di isolanti in 
caso di mancata verifica. Il calcolo 
dei ponti termici viene effettuato tra- 
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mite il metodo della lineare o a per¬ 
centuale, da cui si ottengono le stam¬ 
pe per la relazione già pronta per la 
consegna all’ente preposto. Ovvia¬ 
mente si ha la possibilità nel corso 
dello svolgimento del programma di 
modificare le tipologie utilizzate per 
consentire la verifica dei locali che 
non erano stati considerati preceden¬ 
temente. 

• MacSAP (distribuzione Softing, 
prezzo 1 milione 950 mila lire più 
Iva). 

Il programma consente l’analisi 
statica e dinamica (quest'ultima o- 
pzionale) di strutture del tutto genera¬ 
li col metodo degli elementi finiti. 
Dotato di sofisticati algoritmi per la 
ottimizzazione delle risorse di calco¬ 
lo, come la numerazione automati¬ 
ca dei nodi con ottimizzazione della 
semibanda, o la fattorizzazione a 
blocchi della matrice di rigidezza, ha 
una libreria di elementi finiti mono¬ 
dimensionali particolarmente adatti 
alla progettazione edile. 

L'archivio strutturale del program¬ 
ma può essere utilizzato da post pro¬ 
cessori per il progetto degli elementi 
strutturali in acciaio e in calcestruz¬ 
zo armato per l’automazione del pro¬ 
cesso progettuale. 

MacSAP è dotato di un'interfaccia 
grafica interattiva, e cioè di un meto¬ 
do di dialogo di tipo grafico tra uten¬ 
te e programma che offre la possibi¬ 
lità di interagire direttamente con il 
disegno tridimensionale della strut¬ 
tura. 

• Sicpack3.0 (distribuzione So¬ 
fting, prezzo 2 milioni 400 mila lire 
più Iva). 

Il pacchetto è destinato agli studi 
professionali che progettano struttu¬ 
re in cemento armato di dimensioni 
medio grandi soprattutto in zona si¬ 
smica; consente di diminuire i costi 
di progettazione sia grazie all'inter¬ 
faccia grafica per l'introduzione dei 
dati, sia integrando le principali pro¬ 
cedure progettuali in modo da evitare 
i tempi e gli errori di trasferimento 
manuale di dati tra programmi, sia 
infine fornendo disegni esecutivi del¬ 
le armature corretti e perfezionabili 
dall’utente. 

Il programma consente di trattare 
velocemente e facilmente, con alta 
produttività, strutture regolari in ce¬ 
mento armato di notevoli dimensio¬ 
ni in zona sismica. 

Esso integra cinque programmi 
che consentono di eseguire in un’uni¬ 
ca fase tutte le principali operazioni 


progettuali di una struttura. Queste 
cinque procedure consentono di ese¬ 
guire l'analisi statica e dinamica del¬ 
la struttura, il progetto e il disegno 
esecutivo delle armature di travi e di 
pilastri in calcestruzzo armato, la 
personalizzazione dei disegni esecuti¬ 
vi tramite un sistema CAD dedicato 
al problema tecnico e l'analisi esatta 
delle fondazioni a graticcio di travi e- 
lastiche su suolo elastico secondo 
Winkler. 

I programmi che costituiscono il 
pacchetto comunicano automatica- 
mente tra loro e l'intervento dell'ope¬ 
ratore è critico e di controllo e non 
di meccanica trascrizione dei dati. 

• MacEdil (distribuzione Italsoft, 
prezzo non comunicato). 

E’ un programma la cui procedura 
è stata studiata per soddisfare, in mo¬ 
do rapido ed efficace, la soluzione 
dei problemi legati alla contabilità 
lavori degli studi di progettazione e 
delle imprese edili. 

II programma permette di partire 
da un elenco prezzi generale da cui 
vengono estrapolate di volta in volta 
le voci che andranno a formare l'elen¬ 
co prezzi relativo al nuovo lavoro; 
l'elenco generale può essere inserito 
dall'utente e può essere continuamen¬ 
te rinumerato e riaggiomato sia nei 
contenuti sia nei prezzi relativi, me¬ 
diante una funzione inserita nell'ana¬ 
lisi dei prezzi. 

Una volta ottenuto l'elenco prezzi 
relativo al lavoro, richiamando l'arti¬ 
colo voluto è possibile ottenere, me¬ 
diante l'inserimento delle misure, il 
computo metrico estimativo. 

In qualsiasi fase di procedura, si 
può ottenere l’immissione di nuove 
voci, la ricerca di voci già inserite, 
il relativo annullamento, con la ri¬ 
numerazione automatica degli elen¬ 
chi, la titolazione in più capitoli de¬ 
gli elaborati, la stampa a video e su 
stampante degli elaborati previsti a 
norma di legge. 

In fase di realizzazione dell'opera, 
una volta inseriti i parametri relativi 
all’appalto (data offerta, data conse¬ 
gna lavori, importo in base all'appal¬ 
to, aumenti o ribassi d'asta) e una 
volta predisposto il libretto delle mi¬ 
sure mediante l'inserimento dei fatto¬ 
ri, MacEdil compila automaticamen¬ 
te il registro di contabilità, il som¬ 
mario del registro di contabilità, lo 
stato di avanzamento dei lavori e 
infine il relativo certificato di paga¬ 
mento. 

Alfonso Scoppetta 


lo applico, 
tu applichi? 


La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per cambiarlo 
con un Apple//e. 

O con un Apple//c. 

O con un Macintosh. 
Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


STUDIOSFERA 
sas di Berardo & C 
1 ' Strada 24 - Milano S. Fe 
lice - 20090 Segrate MI - te 
lefono 02/7533939 - 7532151 
telex 350132MACORM-C.F. e 
P Iva 0701483015 7-C.C.IAA. 
Milano 1132820 - Tribunale 
MilanoReg Soc. n. 64797 
Banca Popolare di 
M ilano Ag 17 


Per la pubblicità 
studiòsfem sas 

telefono 02/ 7533939 - 7532151 
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UTILITY 


Non avete una scheda orologio? Poco male: con questo pratico 
programma in linguaggio macchina potrete impostare data e ora in 
ambiente ProDOS per un'esatta registrazione dei file. Il programma 
esemplificativo STARTUP mostra come utilizzare automaticamente 
la routine ogni volta che si fa il booting del sistema. 


A che ora 
nasce il file 


A differenza del DOS 3.3 il Pro¬ 
DOS è in grado di immagazzinare su 
dischetto la data della creazione e del¬ 
la modifica di un file insieme con 
gli altri attributi del file. Si tratta di 
una caratteristica preziosa, in partico¬ 
lare quando si lavora con insiemi di 
dati che devono essere aggiornati di 
frequente o quando si stanno svilup¬ 
pando i programmi. In questo secon¬ 
do caso l'inserimento della data e del¬ 


l'ora fornisce un metodo conveniente 
e sicuro per riconoscere le varie ver¬ 
sioni del programma sui dischetti di 
lavoro e su quelli di riserva, dopo 
qualche giorno di attività di svi¬ 
luppo. 

In ProDOS data e ora possono es¬ 
sere impostate facendo il POKE dei 
valori appropriati nelle locazioni 
$BF90-$BF93. Per quanto a dirlo 
sembri semplice in realtà non lo è, 


poiché per la data, che consta di gior¬ 
no, mese e anno, sono riservati sol¬ 
tanto due byte. Quindi prima che si 
possa fare il POKE della data si deve 
provvedere a un certo impaccamento 
dei dati. Ciò non vale per l'ora, in 
quanto ore e minuti stanno comoda¬ 
mente nei due byte loro riservati. 

L'impostazione e il recupero dei 
valori di data e ora possono esser fat¬ 
ti mediante una subroutine in Basic 


Listato 1 


SOURCE FILE #01 

=>DATE.TIME 




0000 


1 

* DATE.TIME 



0000 


2 

* 




0000 


3 

* SET DATE/TIME 

OR RETRIEVE 

DATE/TIME 

0000 


4 

* UNDER PRODOS 



0000 


5 

* 




0000 


6 

* BY CORNELIS BONGERS 


0000 


7 

* COPYRIGHT (C) 

1986 


0000 


8 

* BY APPLICANDO 

& 


0000 


9 

* MICROSPARC, INC. 


0000 


10 

* PRODOS ' 

TOOL KIT ASSEMBLER 


0000 


11 

★ 




0000 


12 

* EQUATES 




0000 


13 

* GENERAL 

USAGE 



0000 

0006 

14 

DAY 

EQU 

$6 

;USED FOR DAY/HOUR 

0000 

0007 

15 

MONTH 

EQU 

$7 

;USED FOR MONTH 

0000 

0008 

16 

YEAR 

EQU 

$8 

;USED FOR YEAR/MINUTE 

0000 

0017 

17 

STRPTR 

EQU 

$17 

; POINTER TO STRING 

0000 

00FA 

18 

DESCR 

EQU 

SFA 

; START DESCRIPTOR 

0000 

00FD 

19 

TEMP 

EQU 

$FD 

;USED FOR SCRATCH 

0000 

00FE 

20 

DAT 

EQU 

$FE 

;DATE/TIME FLAG 

0000 

00FF 

21 

SEP 

EQU 

$FF 

;SEPARATOR SYMBOL 

0000 


22 

* 




0000 


23 

* SPECIALS 



0000 


24 

* 




0000 

0083 

25 

DATAT 

EQU 

$83 

; DATA TOKEN 

0000 

0200 

26 

IBUF 

EQU 

$200 

; INPUT BUFFER 

0000 

03F5 

27 

BJP 

EQU 

$3F5 

; & VECTOR 

0000 


28 

* 




0000 


29 

* 




0000 


30 

* APPLESOFT LOCATIONS 


0000: 


31 

★ 




0000: 

: 0085 

32 

FORPNT 

EQU 

$85 

; PTR TO DESCRIPTOR 

0000: 

: 00A0 

33 

VPNT 

EQU 

$A0 

; PTR TO STRING 

0000: 

: 00B8 

34 

TXTPTR 

EQU 

$B8 

;TEXTPOINTER 

0000: 


35 

* 



( C* nm 



DOS 3.3 


ProDOS 


Apple Ile 


Apple Ile 


59 

















I 


o una utility in linguaggio mac¬ 
china. 

Per quanto utilizzi più memoria si 
è scelto il metodo del linguaggio 
macchina anche perchè si voleva col¬ 
laudare il comportamento in Pro- 
DOS delle routine di ampersand (&) 
in locazione sopra HIMEM (è emer¬ 
so che c’è qualche cambiamento ri¬ 
spetto al DOS 3.3, come potrete 
vedere più avanti). 


Input e avviamento 

Il programma DATE.TIME è visi¬ 
bile nel listato 1. Le istruzioni & 
DATA e & TIME impostano e recu¬ 
perano rispettivamente la data e l'ora 
correnti. 

Queste istruzioni controllano l’in¬ 
put dell’utente e controllano gli erro¬ 
ri di immissione. 

La sintassi dell'istruzione & DA¬ 
TA è: 


& DATA variabilestringa 


dove variabilestringa dev’essere u- 
guale o a una stringa nulla o a una 
stringa che rappresenta la data corren¬ 
te. Quest’ultima deve avere il forma¬ 
to GG-MMM-AA, dove GG è il 
giorno, MMM il mese e AA l’anno. 

Il giorno dev’essere un numero 
compreso fra uno e il numero dei 
giorni del mese specificato (tenendo 
conto dell’anno bisestile). Il mese è 
rappresentato alfabeticamente in let¬ 
tere maiuscole o minuscole e dev'es¬ 
sere uno dei seguenti: 


GENFEBMAR APR MAG GIU 
LUG AGO SET OTT NOV DIC 


L’anno dev’essere un numero com¬ 
preso fra zero e 99. Così il 21 MAR¬ 
ZO 1984 è rappresentato come 21- 
MAR-84. Se l’anno è uguale a zero 
è interpretato come anno 2000 (che 
è un anno bisestile) anziché come an¬ 
no 1900. 

Non è necessario anteporre uno ze¬ 
ro fittizio ai numeri inferiori a 10; 
per esempio la stringa l-FEB-84 è u- 
na stringa con data valida. 

Per impostare la data dovete riem¬ 
pire una variabile stringa, come 
DA$, con la data corrente, ed esegui¬ 
re l'istruzione & DATA(DA$). Se 
DA$ contiene una data valida la data 
del ProDOS sarà impostata su DA$, 
e il contenuto di DA$ non sarà cam¬ 
biato. 


0000 




36 * APPLESOFT ROUTINES 


0000 




37 * 




0000 



00B1 

38 CHARGET 

EQU 

$B1 ; 

■GET NEXT CHAR 

0000 



00B7 

39 CHARGOT 

EQU 

$B7 ; 

■GET CURRENT CHAR 

0000 



D998 

40 ADDON 

EQU 

$D998 ; 

■ UPDATE TEXTPOINTER 

0000 



DAA1 

41 NEWDESC 

EQU 

$DAA1 

CREATE NEW DESCRIPTOR 

0000 



DD6C 

42 CHKSTR 

EQU 

$DD6C 

CHECK ON TYPE STRING 

0000 



DEB8 

43 CHKCLS 

EQU 

$DEB8 

'CHECK ON ")" 

0000 



DEBB 

44 CHKOPN 

EQU 

$DEBB ; 

CHECK ON '* (" 

0000 



DEC9 

45 SYNERR 

EQU 

$DEC9 ; 

SYNTAX ERROR 

0000 



DFE3 

46 PTRGET 

EQU 

$DFE3 ; 

■FIND APPLESOFT VAR 

0000 




47 * 




0000 




48 * PRODOS 

& BASIC.SYSTEM LOCATIONS 

0000 




49 * 




0000 



BEO 9 

50 ERROUT 

EQU 

$BE0 9 

ERROR HANDLER 

0000 



BEF5 

51 GETBUFR 

EQU 

$BEF5 

RESERVE ROOM 

0000 



BF90 

52 DATE 

EQU 

$BF90 

PRODOS DATE LOCATION 

0000 



BF92 

53 TIME 

EQU 

$BF92 

PRODOS TIME LOCATION 

0000 




54 * 




0000 




55 * 




0000 




56 * 




— 

- NEXT 

OBJECT 

FILE NAME IS 

DATE.TIME.0 


8000 



8000 

57 

ORG 

$8000 


8000 




58 * 




8000 




59 * ALLOCATE ROOM 

AND SET & VECTOR 

8000 




60 * 




8000 

: A9 

03 


61 

LDA 

#$3 

; RESERVE 3 PAGES 

8002 

20 

F5 

BE 

62 

JSR 

GETBUFR 


8005 

90 

05 

800C 

63 

BCC 

MOVE 

rNO ERROR 

8007 

: A9 

OC 


64 MEMER 

LDA 

#$0C 

;"NO BUFFERS AVAILABLE" 1 








ERROR 

8009 

: 4C 

09 

BE 

65 

JMP 

ERROUT 


800C 

:C9 

97 


66 MOVE 

CMP 

#$97 


800E 

:D0 

F7 

8007 

67 

BNE 

MEMER 

; BUFFER MUST START AT 








$9700 

8010 

: 85 

FB 


68 

STA 

DESCR+1 


8012 

: A9 

00 


69 

LDA 

#$00 


8014 

: 85 

FA 


70 

STA 

DESCR 


8016 

: A9 

80 


71 

LDA 

#<STARTCODE 


8018 

: 85 

FF 


72 

STA 

DAT+1 


801A 

: A9 

3B 


73 

LDA 

#>STARTCODE 


801C 

: 85 

FE 


74 

STA 

DAT 

; SETUP FOR MOVE 

801E 

: A9 

00 


75 

LDA 

#>START 


8020 

: 8D 

F6 

03 

76 

STA 

BJP+1 

; SET AMPERSAND VECTOR 

8023 

: A9 

97 


77 

LDA 

#<START 


8025 

: 8D 

F7 

03 

78 

STA 

BJP + 2 


8028 

: A2 

03 


79 

LDX 

#3 


802A 

: A0 

00 


80 

LDY 

#$00 


802C 

: B1 

FE 


81 LOOP1 

LDA 

(DAT),Y 


802E 

: 91 

FA 


82 

STA 

(DESCR) , Y 

;MOVE ! 

8030 

:C8 



83 

INY 



8031 

:D0 

F9 

802C 

84 

BNE 

LOOP1 


8033 

: E6 

FF 


85 

INC 

DAT+1 


8035 

:E6 

FB 


86 

INC 

DESCR+1 


8037 

:CA 



87 

DEX 



8038 

:D0 

F2 

802C 

88 

BNE 

LOOP1 


803A 

: 60 



89 

RTS 



803B 




90 * 




803B 



803B 

91 STARTCODE EQU 

$803B * 


803B 




92 * 




803B 




93 * START 

OF PROGRAM 


803B 




94 * 





- NEXT 

OBJECT 

FILE NAME IS 

DATE.TIME.1 


9700 

: 


9700 

95 

ORG 


$9700 

9700 




96 * 




9700 

: A0 

2D 


97 START 

LDY 

# • 

;SEPARATOR FOR DATE 

9702 

:C9 

83 


98 

CMP 

#DATAT 

; DATA TOKEN ? 

9704 

: F0 

15 

971B 

99 

BEQ 

NEXIT 

; BRANOH IF SO 

9706 

: A0 

00 


100 

LDY 

#$00 


9708 

: B9 

30 

99 

101 TN 

LDA 

TIMED, Y 

; CHECK TIME KEYWORD 

970B 

:D1 

B8 


102 

CMP 

(TXTPTR),Y 


970D 

:D0 

44 

9753 

103 

BNE 

GOEXIT 

;BRANCH IF NOT PRESENT 

970F 

:C8 



104 

INY 



9710 

:C0 

04 


105 

CPY 

#$04 


9712 

:D0 

F4 

9708 

106 

BNE 

TN 


9714 

: 88 



107 

DEY 



9715 

: 20 

98 

D9 

108 

JSR 

ADDON 

?UPDATE TEXTPOINTER 

9718 

: A0 

3A 


109 

LDY 

# ' : ' 

;SEPARATOR FOR TIME 

971A 

: 18 



110 

CLC 



971B 

: 66 

FE 


111 NEXIT 

ROR 

DAT 

; SET DATE/TIME FLAG 

971D 

: 84 

FF 


112 

STY 

SEP 

; SAVE SEPARATOR 

971F 

: 20 

B1 

00 

113 

JSR 

CHARGET 

;ADVANCE TEXTPOINTER 

9722 

: 20 

BB 

DE 

114 

JSR 

CHKOPN 

; CHECK "(" 

9725 

: 20 

E3 

DF 

115 

JSR 

PTRGET 

;EVALUATE VAR 

9728 

: 85 

85 


116 

STA 

FORPNT 


972A 

: 84 

86 


117 

STY 

FORPNT+1 

SAVE PTR TO DESCRIPTOR 

972C 

: 20 

6C 

DD 

118 

JSR 

CHKSTR 

MUST BE STRING 

972F 

: 20 

B8 

DE 

119 

JSR 

CHKCLS 

CHECK ON ")" 

9732 

: A0 

00 


120 

LDY 

#$00 


9734 

: B1 

85 


121 

LDA 

(FORPNT),Y 

;GET LENGTH OF STRING 


60 













m 


9 i; 6 : AA 



122 

TAX 


; SAVE IN X-REGISTER 

97 37 :DO 

7B 

97B4 

123 

BNE 

SETDT 

; SET DATE/TIME IF <>0 

9739:08 



124 

PHP 


; SAVE INTERRUPT STATUS 

97 3A:78 



125 

SEI 


; NO INTERRUPTS 

973B:24 

FE 


126 

BIT 

DAT 


973D:30 

1A 

9759 

127 

BMI 

DODATE 

;BRANCH IF DATE CALL 

973F :AD 

93 

BF 

128 

LDA 

TIME+1 

;GET HOURS 

9742:85 

06 


129 

STA 

DAY 

; SAVE FOR CHECK 

9 44:20 

5B 

98 

130 

JSR 

HA 

;CONVERT TO ASCII 

97 47 : AD 

92 

BF 

131 

LDA 

TIME 

;GET MINUTES 

97 4A:28 



132 

PLP 


;RESTORE INTERRUPT 
STATUS 

974B:85 

08 


133 

STA 

YEAR 

; SAVE FOR CHECK 

974D:A2 

03 


134 

LDX 

#$03 


97 4F: A0 

05 


135 

LDY 

#$05 

;LENGTH STRING 

9751:D0 

43 

9796 

136 

BNE 

DOST 

;ALWAYS 

9753:20 

B7 

00 

137 GOEXIT 

JSR 

CHARGOT 

;RESTORE ACCU 

97 56:4C 

34 

99 

138 

JMP 

EXIT 

; EXIT WITH SYNTAX ERROR 

9759:AD 

90 

BF 

139 DODATE 

LDA 

DATE 


97 5C: 85 

FD 


140 

STA 

TEMP 

; SAVE FOR PROCESSING 

975E:29 

1F 


141 

AND 

#%00011111 

; ISOLATE DAY 

- 60:85 

06 


142 

STA 

DAY 

; SAVE FOR CHECK 

9762:20 

5B 

98 

143 

JSR 

HA 

;CONVERT TO ASCII 

97 65 : AD 

91 

BF 

144 

LDA 

DATE+1 


9768:28 



145 

PLP 


;RESTORE INTERRUPT 
STATUS 

97 69:4A 



146 

LSR 


;ACCU = YEAR 

97 6A:85 

08 


147 

STA 

YEAR 

; SAVE FOR CHECK 

97 6C: 66 

FD 


148 

ROR 

TEMP 

;SHIFT HIGH BIT MONTH 
INTO TEMP 

97 6E:A5 

FD 


149 

LDA 

TEMP 


9770:29 

F0 


150 

AND 

#%11110000 

;CLEAR DAYS 

9772:4A 



151 

LSR 



9773 :4A 



152 

LSR 



9774 :4A 



153 

LSR 



9775:85 

FD 


154 

STA 

TEMP 

;ACCU = 2*MONTH 

9777 :4A 



155 

LSR 


;ACCU - MONTH 

9778:85 

07 


156 

STA 

MONTH 

; SAVE FOR CHECK 

97 7A-.65 

FD 


157 

ADC 

TEMP 


977C :AA 



158 

TAX 


;X = 3*MONTH 

977D:A0 

00 


159 

LDY 

#$00 


9 7 F : BD 

08 

99 

160 NXTM 

LDA 

MONTHTAB-3,X 

; STORE TEXT OF MONTH 

IN INPUT BUFFER 

9782:99 

D3 

02 

161 

STA 

IBUF+SDO+3,Y 


9785 :E8 



162 

INX 



9786:C8 



163 

INY 



9787 : CO 

03 


164 

CPY 

#$03 


9789:D0 

F4 

977F 

165 

BNE 

NXTM 


978B:A2 

04 


166 

LDX 

#$04 


97 8D: 20 

74 

98 

167 

JSR 

WMIN 

;INSERT 

97 90 :A5 

08 


168 

LDA 

YEAR 

;GET YEAR 

97 92 : A2 

07 


169 

LDX 

#$07 

;REL POS IN INPUT 

BUFFER 

97 94 : A0 

09 


170 

LDY 

#$09 

;LENGTH STRING 

9796:84 

FA 


171 DOST 

STY 

DESCR 


9798:20 

5B 

98 

172 

JSR 

HA 

;CONVERT YEAR/MINUTES 

TO ASCII 

97 9B:20 

A8 

98 

173 

JSR 

CHECK 

; CHECK PARAMETERS 

97 9E:90 

01 

97A1 

174 

BCC 

NOERROR 


97A0:60 



175 

RTS 


; EXIT WITH NULLSTRING 

97A1 :A9 

DO 


176 NOERROR 

LDA 

#>IBUF+$D0 

;MAKE DESCRIPTOR 

97A3:85 

FB 


177 

STA 

DESCR+1 


97A5.-A9 

02 


178 

LDA 

# <IBUF+$D0 


97A7:85 

FC 


179 

STA 

DESCR+2 


97A9:A9 

00 


180 

LDA 

#$00 


97AB: 85 

Al 


181 

STA 

VPNT+1 

;PTR TO DESCRIPTOR 

97AD :A9 

FA 


182 

LDA 

#DESCR 


97AF: 85 

A0 


183 

STA 

VPNT 


97B1:4C 

Al 

DA 

184 

JMP 

NEWDESC 

;ASSIGN STRING TO 
VARIABLE 

97B4 : 



185 * 




97B4-.C8 



186 SETDT 

INY 



97B5:B9 

B7 

00 

187 

LDA 

TXTPTR-1,Y 

; SAVE TEXTPOINTER 

97B8:48 



188 

PHA 



97B9:B1 

85 


189 

LDA 

(FORPNT),Y 


97BB:99 

16 

00 

190 

STA 

STRPTR-1, Y 

; SET PTR TO STRING 

97BE: CO 

01 


191 

CPY 

#$01 


97C0:F0 

F2 

97B4 

192 

BEQ 

SETDT 


97C2:8A 



193 

TXA 



97C3: A8 



194 

TAY 


;GET LENGTH STRING 

97C4:C9 

0A 


195 

CMP 

#10 

;MUST BE <10 

97C6:B0 

60 

9828 

196 

BCS 

NULLOUT 


97C8:A9 

00 


197 

LDA 

#$00 

;PUT ZERO AT END 

97CA:F0 

06 

97D2 

198 

BEQ 

LOOPS 


97CC-.B1 

17 


199 LOOPA 

LDA 

(STRPTR),Y 

;MOVE STRING TO INPUT 
BUFFER 

97CE:C9 

20 


200 

CMP 

#$20 

;NO BLANKS ALLOWED 

97D0:F0 

56 

9828 

201 

BEQ 

NULLOUT 


97D2: 99 

DO 

02 

202 LOOPS 

STA 

IBUF+$D0 / Y 


97D5:88 



203 

DEY 


( Continua ) 


Se invece DA$ non è una data vali¬ 
da la routine assegnerà una stringa 
nulla a DA$ e non cambierà la data 
del ProDOS. E' perciò essenziale 
controllare il contenuto di DA$ do¬ 
po che l'istruzione & DATA (DA$) 
è stata eseguita. 

Per recuperare la data dovete asse¬ 
gnare una stringa nulla a DA$ ed ese¬ 
guire & DATA(DA$). Sarà allora 
assegnata a DA$ la data corrente. 

Se la data non è stata ancora impo¬ 
stata o la data del ProDOS non è u- 
na data valida (impostata da un'altra 
utility) DA$ sarà ancora una stringa 
nulla dopo che è stata eseguita l'i¬ 
struzione & DATA(DA$). Il pro¬ 
gramma visibile nel listato 2 dà una 
dimostrazione di questa tecnica con 
vari esempi. 

L'ora può essere impostata con l'i¬ 
struzione & TIME. La sintassi è: 


& TIME variabile stringa 


dove variabile stringa dev'essere u- 
guale o a una stringa nulla o a una 
stringa che rappresenta l'ora corren¬ 
te. Quest'ultima deve avere il forma¬ 
to HH-MM, dove HH costituisce le 
ore e MM i minuti. HH dev'essere 
un numero compreso fra 0 e 23 e 
MM dev'essere un numero compreso 
fra 0 e 59. 

Così 23-59 è una stringa di ora va¬ 
lida, mentre 24-00 è una stringa d’o¬ 
ra non valida. 

Il metodo d'impostazione e recupe¬ 
ro dell'ora è lo stesso della data. 

Se non disponete di una scheda o- 
rologio data e ora devono essere im¬ 
postate ogni volta che avviate il si¬ 
stema. 

Il listato 3 è un programma di av¬ 
viamento (STARTUP) che può esse¬ 
re utilizzato per questo scopo. Con¬ 
trariamente ai programma del listato 
2, quello del listato 3 contiene una 
trappola d’errori che controlla se sia 
presente DATE.TIME e lo installa 
se necessario. 

Notate che il programma controlla 
se la routine DATE sia già installata 
(linee 120, 130, 1000 e 1010 ). In 
caso affermativo viene saltata l'istru¬ 
zione BRUN di linea 140. 

Introduzione 
dei programmi 

Per digitare i programmi introduce¬ 
te dapprima il codice visibile nel li¬ 
stato 1. 






Se disponete del ProDos Tool Kit 
Assembler vi basterà introdurre il 
programma e assemblarlo. 

In alternativa potete accedere al 
Monitor per introdurre direttamente 
il codice in linguaggio macchina, i- 
gnorando il cambiamento di indiriz¬ 
zo alla linea 97; questa linea porterà 
quindi come indirizzo di memoria e- 
sadecimale $803B e non $9700. 

Per avere un aiuto nell'introduzio- 
ne dei listati di Applicando fate riferi¬ 
mento alla rubrica Per chi comincia, 
nelle ultime pagine di questo nu¬ 
mero. 

Una particolare attenzione merita 
il salvataggio. Se il listato 1 è stato 
introdotto direttamente in memoria 
in ambiente Monitor, salvate il pro- 
grammma su dischetto con il co¬ 
mando: 


BSAVE DATE.TIME,A$8000, 
L$272 


Se invece avete introdotto il lista¬ 
to 1 mediante il ProDos Tool Kit 
Assembler, troverete sul disco due fi¬ 
le: DATE.TIMEO e DATE.TIME1; 
questo perchè il programma si com¬ 
pone di due blocchi che vengono as¬ 
semblati nella loro reciproca area di 
memoria di funzionamento mentre il 
programma sul dischetto deve esse¬ 
re formato di un solo blocco conti¬ 
nuo. 

Perciò, terminato l'assemblaggio, 
uscite dal programma assemblatore 
ed eseguite le seguenti istruzioni: 


BLOAD DATE.TIMEO 
BLOAD DATE.TIME1,A$803B 
BSAVE DATE.TIME,A$8000, 
L$272 


Digitate quindi il programma in 
Applesoft visibile nel listato 2 e sal¬ 
vatelo su dischetto con il comando: 


SAVE DATE.TIME.DEMO 


Infine se volete che data e ora sia¬ 
no impostate quando fate il booting 
del dischetto in ProDOS, introducete 
il programma in Applesoft che si 
vede nel listato 3 e salvatelo con il 
comando: 


SAVE STARTUP 


Dato che il ProDOS cerca automa¬ 
ticamente di eseguire qualsiasi pro¬ 
gramma denominato STARTUP 
quando si fa il booting di un dischet- 


97D6:10 

F 4 

97CC 

204 


BPL 

LOOPA 


97D8:A9 

DO 


205 


LDA 

#>IBUF+$D0 

; SET TXTPTR TO STRING 

97DA:85 

B8 


206 


STA 

TXTPTR 


97DC:A9 

02 


207 


LDA 

#<IBUF+$D0 


97DE: 85 

B9 


208 


STA 

TXTPTR+1 


97E0:20 

3A 

98 

209 


JSR 

GETDEC 

;GET DAY OR HOURS 

97E3:B0 

43 

9828 

210 


BCS 

NULLOUT 

; EXIT IF ERROR 

97E5:85 

06 


211 


STA 

DAY 


97E7:24 

FE 


212 


BIT 

DAT 


97E9:30 

11 

97FC 

213 


BMI 

DODATE1 

;BRANCH IF DATE CALL 

97EB:20 

B7 

00 

214 


JSR 

CHARGOT 

;GET SEPARATOR 

97EE:C9 

2D 


215 


CMP 

# •-' 

IS 0K 

97F0:F0 

04 

97F6 

216 


BEQ 

ADVANCE 


97F2:C9 

3A 


217 


CMP 

#• : ' 

;": M IS OK 

97F4:D0 

32 

9828 

218 


BNE 

NULLOUT 


97F6:20 

B1 

00 

219 

ADVANCE 

JSR 

CHARGET 


97F9:4C 

0B 

98 

220 


JMP 

DOMIN 

;DO MINUTES 

97FC: 20 

2F 

98 

221 

DODATE1 

JSR 

SYNC 

; CHECK SEPARATOR 

97FF:D0 

27 

9828 

222 


BNE 

NULLOUT 


9801:20 

7A 

98 

223 


JSR 

GETMONTH 

;GET MONTH 

9804 :B0 

22 

9828 

224 


BCS 

NULLOUT 


9806:20 

2F 

98 

225 


JSR 

SYNC 

;CHECK ON SEPARATOR 

9809:D0 

1D 

9828 

226 


BNE 

NULLOUT 


980B:20 

3A 

98 

227 

DOMIN 

JSR 

GETDEC 

;GET YEAR OR MINUTES 

980E:B0 

18 

9828 

228 


BCS 

NULLOUT 


9810:85 

08 


229 


STA 

YEAR 


9812:20 

B7 

00 

230 


JSR 

CHARGOT 

; MUST POINT TO END 








OF TEXT 

9815:C9 

00 


231 


CMP 

#$00 


9817:D0 

0F 

9828 

232 


BNE 

NULLOUT 


9819:20 

A8 

98 

233 


JSR 

CHECK 

; CHECK INPUT 

981C:B0 

0A 

9828 

234 


BCS 

NULLOUT 


981E: 20 

E4 

98 

235 


JSR 

SETDATE 

; SET PRODOS LOCATIONS 

9821:68 



236 

STXT 

PLA 


;RESTORE TEXTPOINTER 

9822:85 

B9 


237 


STA 

TXTPTR+1 


9824:68 



238 


PLA 



9825:85 

B8 


239 


STA 

TXTPTR 


9827:60 



240 


RTS 



9828: 



241 

* 




9828: 



242 

* RETURN : 

NULL 

STRING IF ERROR 


9828: 



243 

* 




9828:A0 

00 


244 

NULLOUT 

LDY 

#$00 


982A:98 



245 


TYA 



982B:91 

85 


246 


STA 

(FORPNT),Y 


982D:F0 

F2 

9821 

247 


BEQ 

STXT 

;ALWAY S 

982F : 



248 

* 




982F: 



249 

* CHECK ON SEPARATOR 


982F: 



250 

* 




982F:20 

B7 

00 

251 

SYNC 

JSR 

CHARGOT 

;GET CURRENT 








CHARACTER 

9832 :C5 

FF 


252 


CMP 

SEP 

; COMPARE WITH 








SEPARATOR 

9834:08 



253 


PHP 



9835:20 

B1 

00 

254 


JSR 

CHARGET 

;ADVANCE TEXTPOINTER 

9838:28 



255 


PLP 


; EXIT WITH ZF CLEAR 








IF NO MATCH 

9839:60 



256 


RTS 



983A: 



257 

* 




983A: 



258 

* CONVERT 

NEXT 

' 2 ASCII*S TO HEX IN ACCU 

983A: 



259 

* 




983A:20 

B7 

00 

2 60 

GETDEC 

JSR 

CHARGOT 

;GET CURRENT 








CHARACTER 

983D:B0 

18 

9857 

261 


BCS 

OUTDH 

;BRANCH IF NO DIGIT 

983F:E9 

2F 


262 


SBC 

#$2F 

;CONVERT TO DIGIT 

9841 :A8 



263 


TAY 


; SAVE HIGH BYTE IN 








Y-REG 

9842:20 

B1 

00 

264 


JSR 

CHARGET 

;GET NEXT CHAR 

9845 :B0 

11 

9858 

265 


BCS 

NODIG 

;BRANCH IF NO DIGIT 

9847 :E9 

2F 


266 


SBC 

#$2F 

;CONVERT 

9849:48 



267 


PHA 



984A:20 

B1 

00 

268 


JSR 

CHARGET 

;ADVANCE TEXTPOINTER 

984D: 68 



269 


PLA 



984E: 18 



270 


CLC 


;CONVERT DIGITS TO 








ONE BYTE NUMBER 

984F:C8 



271 


INY 



9850:88 



272 

DH1 

DEY 



9851 :F0 

04 

9857 

273 


BEQ 

OUTDH 


9853:69 

0A 


274 


ADC 

#10 

;CARRY IS CLEAR 

9855:90 

F9 

9850 

275 


BCC 

DH1 

;AND SHOULD REMAIN 








CLEAR 

9857:60 



276 

OUTDH 

RTS 



9858:98 



277 

NODIG 

TYA 


;GET NUMBER IN ACCU 

9859:18 



278 


CLC 



985A:60 



279 


RTS 



985B: 



280 

* 




985B: 



281 

* CONVERT 

HEX 

NUMBER TO ASCII 

AND STORE IN IBUF 

985B: 



282 

* 




985B:C9 

64 


283 

HA 

CMP 

#100 

;MUST BE <100 

985D:B0 

1A 

9879 

284 


BCS 

OUTHA 


985F:A0 

30 


285 


LDY 

#$30 

;ASCII ZERO 
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9861:38 



286 

SEC 



9862 :E9 

0A 


287 HAI 

SBC 

#10 

;SUBTRACT TILL BORROW 

9864:90 

03 

9869 

288 

BCC 

HA2 


9866 :C8 



289 

INY 



9867 :B0 

F9 

9862 

2 90 

BCS 

HAI 

;ALWAYS 

9869:69 

0A 


291 HA2 

ADC 

#10 


986B: 09 

30 


292 

ORA 

#$30 

;ADD ASCII ZERO 

986D: 9D 

DI 

02 

293 

STA 

IBUF+1+$D0,X 

;STORE RESULT IN 

INPUT BUFFER 

9870:98 



294 

TYA 



9871 :9D 

DO 

02 

295 

STA 

IBUF+$D0,X 


9874 :A5 

FF 


296 WMIN 

LDA 

SEP 

;STORE SEPARATOR IN 
INPUT BUFFER 

9876: 9D 

D2 

02 

297 

STA 

IBUF+2+SD0,X 


9879:60 



298 OUTHA 

RTS 



987A: 



299 * 




987A: 



300 * CONVERT 

MONTH 

TO NUMBER 


987A: 



301 * 




987A: A2 

00 


302 GETMONTH 

LDX 

#$00 


987C : 8 6 

07 


303 

STX 

MONTH 


987E :A0 

00 


304 MI 

LDY 

#$00 


9880:84 

FD 


305 

STY 

TEMP 


9882 :E6 

07 


306 

INC 

MONTH 


9 88 4 :BD 

0B 

99 

307 M2 

LDA 

MONTHTAB,X 

;GET CHAR FROM TABLE 

9887:38 



308 

SEC 



9888 :F0 

1D 

98A7 

309 

BEQ 

MONOUT1 

; END OF TABLE 

988A: B1 

B8 


310 

LDA 

(TXTPTR),Y 


988C:C9 

60 


311 

CMP 

#$60 

;CONVERT LOWER TO 

UPPER CASE 

988E: 90 

02 

9892 

312 

BCC 

NOLOW 


9890:49 

20 


313 

EOR 

#$20 


9892 :DD 

0B 

99 

314 NOLOW 

CMP 

MONTHTAB,X 


9895 :D0 

02 

9899 

315 

BNE 

NOROL 


9897 :E6 

FD 


316 

INC 

TEMP 

;COUNT MATCHES 

9899 :E8 



317 NOROL 

INX 



989A: C8 



318 

INY 



989B: CO 

03 


319 

CPY 

#$03 

; END OF MONTH 

989D:D0 

E5 

9884 

320 

BNE 

M2 

; CONTINUE IF NOT 

989F :C4 

FD 


321 

CPY 

TEMP 

;MONTH MATCH ? 

98A1 : DO 

DB 

987E 

322 

BNE 

MI 

;BRANCH IF NOT 

98A3 :20 

98 

D9 

323 

JSR 

ADDON 

;UPDATE TEXTPOINTER 

98A6: 18 



324 

CLC 



98A7 :60 



325 MONOUT1 

RTS 



98A8 : 



326 * 




98A8 : 



327 * CHECK PARAMETERS 


98A8 : 



328 * 




98A8 :24 

FE 


329 CHECK 

BIT 

DAT 


98AA: 30 

0B 

98B7 

330 

BMI 

CHECK1 

;BRANCH IF DATE 

98AC :A5 

06 


331 

LDA 

DAY 


98AE:C9 

18 


332 

CMP 

#24 

;HOURS MUST BE <24 

98B0 :B0 

2F 

98E1 

333 

BCS 

CHECKOUT 


98B2 :A5 

08 


334 

LDA 

YEAR 


98B4 :C9 

3C 


335 

CMP 

#60 

;MINUTES MUST BE <60 

93B6 :60 



336 

RTS 



98B7 :A4 

07 


337 CHECK1 

LDY 

MONTH 


98B9 :F0 

27 

98E2 

338 

BEQ 

CARRY 


98BB: CO 

OD 


339 

CPY 

#13 

; JUST TO BE SURE 

98BD :B0 

22 

98E1 

340 

BCS 

CHECKOUT 


98BF :A5 

08 


341 

LDA 

YEAR 


98C1 :C0 

02 


342 

CPY 

#$02 

;FEBRUARY IS AN 
EXCEPTION 

98C3 :D0 

0A 

98CF 

343 

BNE 

NOFEB 


98C5 :29 

FC 


344 

AND 

#$FC 

;MULTIPLE OF FOUR ? 

98C7 :C5 

08 


345 

CMP 

YEAR 

; SET CARRY IF SO 

98C9: A9 

00 


346 

LDA 

#$00 


98CB: 69 

1D 


347 

ADC 

#29 

;RESULT IS 29 OR 30 

98CD : DO 

0A 

98D9 

348 

BNE 

CHKDAY 

;ALWAYS 

98CF :A9 

AB 


349 NOFEB 

LDA 

#%10101011 

;GET BITMASK 

98D1 :18 



350 

CLC 



98D2 :2A 



351 ROL1 

ROL 


; SET OR CLEAR CARRY, 

98D3 :88 



352 

DEY 


;DEPENDENT ON MONTH 

98D4: DO 

FC 

98D2 

353 

BNE 

ROL1 


98D6:98 



354 

TYA 



98D7:69 

1F 


355 

ADC 

#31 

;RESULT IS 31 OR 32 

98D9:8 5 

FD 


356 CHKDAY 

STA 

TEMP 

; SAVE RESULT 

98DB:A5 

06 


357 

LDA 

DAY 

;AND COMPARE WITH DAY 

98DD:F0 

03 

98E2 

358 

BEQ 

CARRY 

;ERROR IF 0 

98DF-.C5 

FD 


359 

CMP 

TEMP 

;CARRY SHOULD BE CLEAR 

98E1: 60 



360 CHECKOUT 

RTS 



98E2:3 8 



361 CARRY 

SEC 



98E3: 60 



362 

RTS 



98E4: 



363 * 




98E4 : 



364 * MOVE DATE TO 

PRODOS LOCATIONS 

98E4 : 



365 * 




98E4:08 



366 SETDATE 

PHP 



98E5:78 



367 

SEI 


;NO INTERRUPTS 

98E6:24 

FE 


368 

BIT 

DAT 


98E8:30 

OC 

98F6 

369 

BMI 

SETDATE1 

;BRANCH IF DATE 

98EA:A5 

06 


370 

LDA 

DAY 


98EC:8D 

93 

BF 

371 

STA 

TIME+1 

; SAVE HOURS 


(Continua) 


to, verrete invitati a impostare la da¬ 
ta e l'ora del sistema all'inizio di o- 
gni seduta con il computer. 

Trattamento 
degli errori 

Esaminando il programma in lin¬ 
guaggio macchina del listato 1 note¬ 
rete che utilizza pochissime routine 
dell'Applesoft. 

Per esempio la conversione da deci¬ 
male a es adecimale è compiuta da u- 
na subroutine interna e non da una 
chiamata allaroutine dec-hex dell’Ap- 
plesoft. 

Ciò assicura che la routine della 
data avrà un controllo totale dell'erro¬ 
re, cosicché non occorre un'istruzio¬ 
ne ONERR più una routine di tratta¬ 
mento per controllare gli errori di in¬ 
put. 

Il solo "messaggio d'errore" che la 
routine genera in risposta agli errori 
d'immissione consiste nel pulire il 
contenuto della stringa di input. 

Questo approccio è particolarmen¬ 
te comodo quando si sviluppano pro¬ 
grammi che saranno usati da altri. 
E' però del programmatore la respon¬ 
sabilità di controllare la stringa che 
viene restituita da & DATA o da & 
TIME. Se si tratta di una stringa nul¬ 
la l'input non era esatto. 

Per ciò che riguarda gli errori diver¬ 
si da quelli di input si può ricevere u- 
no di tre messaggi di errore. 

Il primo è SYNTAX ERROR, 
che viene generato se si fa un errore 
nella sintassi dell'istruzione & DA¬ 
TA o dell'istruzione & TIME. Il se¬ 
condo messaggio d'errore è TYPE 
MISMATCH ERROR. 

Si riceverà questo messaggio quan¬ 
do in un'istruzione & DATA o &TI- 
ME è specificata una variabile che 
non è stringa. Infine si riceverà il 
messaggio NO BUFFERS AVAILA- 
BLE ERROR quando non è possibi¬ 
le installare la routine aH'indirizzo 
$9700. 

Installazione 
e convenzioni 

Il programma DATE.TIME può 
essere installato con il comando 
BRUN. 

Quando installate la routine dall'in- 
temo di un programma fate attenzio¬ 
ne che non sia attiva alcuna stringa 
al momento in cui viene eseguita l'i- 
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m 



98EF:A5 

08 



372 


LDA 

98F1:8D 

92 

BF 


373 


STA 

98F4:28 




374 


PLP 

98F5: 60 




375 


RTS 

98F6:A5 

07 



376 

SETDATE1 

LDA 

98F8:0A 




377 


ASL 

98F9:0A 




378 


ASL 

98FA:0A 




379 


ASL 

98FB:0A 




380 


ASL 

98FC:0A 




381 


ASL 

98FD: 26 

08 



382 


ROL 

98FF:65 

06 



383 


ADC 

9901:8D 

90 

BF 


384 


STA 

9904 :A5 

08 



385 


LDA 

9906:8D 

91 

BF 


386 


STA 

9909:28 




387 


PLP 

990A:60 




388 


RTS 

990B: 




389 

•k 


990B: 




390 

* DATA 


990B: 




391 

* 


990B:47 

45 

4E 

46 

392 

MONTHTAB 

ASC 

991D-.4C 

55 

47 

41 

393 


ASC 

992F: 00 




394 


DFB 

9930:54 

49 

4D 

45 

395 

TIMED 

ASC 

9934: 




396 

* 


9934:4C 

C9 

DE 


397 

EXIT 

JMP 

9937: 




398 

* 


** SUCCESSFUL 

ASSEMBLY 

:= NO ERRORS 


YEAR 

TIME ; SAVE MINUTES 

; RESTORE INTERRUPT STATUS 

MONTH 

A 

A 

A 

A 

A 

YEAR ;MOVE HIGH BIT MONTH TO YEAR 

DAY ;CARRY IS CLEAR 

DATE 

YEAR 

DATE+1 

; RESTORE INTERRUPT STATUS 


'GENFEBMARAP RMAGGIU' 
'LUGAGOSETOTTNOVDIC' 
$00 
•TIME' 

SYNERR 


struzione BRUN. Pertanto la solu¬ 
zione migliore è quella di inserire 
l'istruzione: 


PRINT CHR$(4); M BRUN DATE. 
TIME” 


nella prima linea del programma o 
di farla precedere dall'istruzione 
CLEAR. 

Quando la routine è installata vie¬ 
ne impostato il vettore & e vengono 
regolati i puntatori HIMEM e FRE- 
TOP. 

Notate però che il metodo è diver¬ 
so da quello usato con il DOS 3.3. 
Con il DOS 3.3 per far funzionare a 
dovere le cose basta reimpostare HI- 
MEM e FRETOP sui valori appro¬ 
priati. 

Nel ProDOS l'area di 1K appena 
sopra HIMEM è utilizzata come buf¬ 
fer di file e come buffer temporaneo 
per la garbage collection. Perciò 
l'impostazione di HIMEM sull'ini¬ 
zio della routine & metterebbe una 
bomba a scoppio ritardato sotto la 
routine. 

Un'alternativa alla reimpostazione 
di HIMEM consiste nello spostare 
in giù i buffer del ProDOS e nell’im- 
magazzinare la routine sopra i buf¬ 
fer. 

Questo metodo è impiegato anche 
da molte utility basate sul DOS 3.3, 
come quelle di editing delle linee di 
programma. 

Fortunatamente non è stato neces¬ 
sario analizzare il ProDOS per sco¬ 
prire come spostare i buffer, in 
quanto i progettisti del ProDOS han¬ 
no realizzato una chiamata speciale, 


la GETBUFR, per allocare un buffer 
di memoria alle applicazioni dell'u¬ 
tente. 

Per riservare un certo numero di 
pagine la sola cosa da fare è caricare 
il numero nell'Accumulatore ed ese¬ 
guire un'istruzione JSR GETBUFR 
($BEF5). 

Poi il ProDOS sposterà la HI- 
MEM corrente in giù del numero 
specificato di pagine e riporterà il 
byte alto dell'indirizzo d'avvio del 
buffer di memoria nell’Accumulato¬ 
re, se non si è verificato alcun erro¬ 
re durante il processo di allocazione. 

Dato che la routine della data è lun¬ 
ga 626 byte devono essere riservate 
tre pagine. 

Quando non è stata fatta alcuna al¬ 
tra chiamata a GETBUFR l'indirizzo 
d'avvio del buffer di memoria è 
$9700. Pertanto il corpo principale 
della routine della data è stato assem¬ 
blato con ORG=$9700. 

Non è però possibile caricare la 


routine della data in quella locazio¬ 
ne, dato che il buffer viene riservato 
solo dopo che la routine di inizializ- 
zazione ha assunto il controllo. 

Si può ovviare a questo problema 
caricando la routine della data in un 
altro indirizzo che sia sicuro, e la¬ 
sciando poi che la routine si trasferi¬ 
sca alla sua destinazione finale. 

Prima che questo trasferimento 
venga fatto viene eseguita la chiama¬ 
ta GETBUFR. 

E' stato scelto l'indirizzo di carica¬ 
mento $8000, ma potete cambiare il 
primo ORG in un valore differente 
se questo indirizzo non vi va bene. 
Qualora abbiate bisogno della routi¬ 
ne della data solo temporaneamente 
potete facilmente rimuoverla dalla 
memoria utilizzando la chiamata 
JSR FREEBUFR ($BEF8). 

L’effetto è che il ProDOS rialloca 
tutti i buffer, riportando così la me¬ 
moria occupata dalla routine della da¬ 
ta alla memoria di programmazione 
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Listato 2 


1 REM - 

2 REM DATE. TIME.DEMO 

3 REM DI CORNELIS BONGERS 

4 REM COPYRIGHT (C) 1986 

5 REM BY APPLICANDO & 

6 REM MICROSPARC, INC. 

7 REM - 

100 IF PEEK (1015) < > 151 THEN PRINT CHR$ (4)"BRUN DATE.TIME" 

110 PRINT "INPUT","RISULTATO" 

120 FOR I » 1 TO 10 
130 READ X$:DA$ * X$ 

14 0 & DATA (DA$) 

150 IF DA$ = "" THEN RD$ = "NON VALIDO": GOTO 170 
160 LET RD$ = & DATA(RD$) 

170 PRINT X$,RD$ 

180 NEXT I 

190 DATA lmar84,l-mar-80, 10-GEN-50,13-MEI-90, 02-GEN-83 

200 DATA O-DIC-85, 31-OTT-84-, 29-FEB-83, 29-FEB-84,31-apr-83 
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Listato 3 


1 REM - 

2 REM STARTUP 

3 REM DI CORNELIS BONGERS 

4 REM COPYRIGHT (C) 1986 

5 REM BY APPLICANDO & 

6 REM MICROSPARC, INC. 

7 REM - 

100 REM PROGRAMMA D'AVVIAMENTO PER DATE.TIME 
110 TEXT : NOTRACE : HOME : VTAB 10 
120 ONERR GOTO 1000 

130 LET DA$ = & DATA(DA$): POKE 216,0: GOTO 160 

140 PRINT CHR$ (4) ;"BRUN DATE.TIME": REM ROUTINE INSTALLAZIONE DATA 
150 LET DA$ = & DATA(DAS) 

160 IF DAS = "" GOTO 230: REM DATA NON ANCORA IMPOSTATA 
170 PRINT "LA DATA CORRENTE E' ";DA$ 

180 PRINT : PRINT "VUOI CAMBIARLA (S/N) ? ";: 

190 GET A$ 

200 IF A$ < > "S" AND A$ < > "N" THEN PRINT CHRS (7);: GOTO 190 

210 PRINT A$ 

220 IF A$ = "N" GOTO 260 

230 PRINT : INPUT "INTRODUCI LA DATA (GG-MMM-AA) ";DA$ 

240 IF DAS < > "" THEN & DATA(DAS) 

250 IF DAS = "" THEN PRINT "IMMISSIONE DATA ERRATA ": GOTO 230 

260 PRINT : INPUT "INTRODUCI L'ORA (HH-MM) ";TI$ 

270 IF TIS < > "" THEN & TIME(TIS) 

280 IF TIS = "" THEN PRINT "IMMISSIONE ORA ERRATA ": GOTO 260 

290 REM RECUPERA E STAMPA DATA E ORA 
300 HOME 

310 LET DAS = & DATA(DAS): PRINT "DATA : ";DA$;" 

320 LET TIS = & TIME(TIS): PRINT "ORA : ";TI$ 

330 VTAB 22 

340 REM . ECC. 

999 END 

1000 POKE 216,0: REM AZZERA PUNTATORE ONERR 

1010 RUN 140: REM EVITA PROBLEMI CON LA ROUTINE DI ERRORE 
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libera. Tra parentesi la chiamata non 
ha effetto sulle stringhe, che rimar¬ 
ranno intatte. 

Ecco un esempio che mostra come 
installare e rimuovere la routine del¬ 
la data* 

10 REM PROGRAMMA XYZ 
20 PRINT CHR$(4); "BRUN 
DATE.TIME": REM INSTALLA 
DATE.TIME 

30 REM L'USO DELLA ROUTI 
NE & ANDREBBE QUI 


200 REM LA ROUTINE DELLA 
DATA NON OCCORRE PIU' 

210 CALL 48888: REM JSR 
FREEBUFR ($BEF8) 

220 POKE 1014,3: POKE 1015, 

190: REM RESET VETTORE & 


Questo programma è disponibile 
su dischetto. L'elenco, i prezzi 
eie modalità d'ordine di questo e 
degli altri dischetti disponibili sono 
riportati nella rubrica Disk Servi ce. 
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Per Apple II, Ile, Ile : 

Contabilità Generale Prodos (Hard Disk, 3" 1/2) 
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Contabilità Forfettaria ( Mono/Multiaziendale ) 

Parcellazione Studi Legali 
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Sei proprio sicuro 
che il tuo computer 
sia sempre al sicuro? 


Incidenti di trasporto, furti anche dall'auto o dalla camera 
d'albergo, cortocircuiti, bevande rovesciate sulla tastiera, 
bambini o inesperti che ci mettono le mani... Ecco i pericoli 
che correva il tuo computer prima della polizza Applicando. 


Condizioni generali di assicura¬ 
zione: 

1) Premessa : a) l'adesione alla 
presente polizza è riservata ai pro¬ 
prietari di un Personal Computer il 
cui valore stabilito come alla Condi¬ 
zione 6) sia superiore a L. 
2.500.000 Iva compresa; b) l'adesio¬ 
ne alla presente polizza da parte dei 
proprietari di personal .computer av¬ 
verrà a mezzo invio di apposita car¬ 
tolina con il relativo importo di pre¬ 
mio; c) l’intestatario della cartolina 
sarà considerato a tutti gli effetti co¬ 
me l'Assicurato; d) la garanzia sarà 
operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante 
dal timbro postale. La copertura a - 
vrà durata un anno, sempre che la 
data di inizio della garanzia sia com¬ 
presa nel periodo di validità della 
convenzione. 

Garanzie e condizioni 

2) Sez. I - Danni materiali. Deri¬ 
vanti da: a) incendio, opera di spe¬ 
gnimento e salvataggio, fulmine, e- 
splosione, scoppio, implosione; b) a- 
cqua e liquidi in genere, inondazio¬ 
ne, alluvione, trombe, uragani, ge¬ 
lo, ghiaccio, neve, grandine, valan¬ 
ga, caduta massi e altri simili even¬ 
ti; c) superamento del muro del suo¬ 
no, caduta di aeromobili o cose da 
essi trasportate; d) corto circuito, 
variazione di corrente, sovratensio¬ 
ne arco voltaico, deficienze di isola¬ 
mento, effetti di elettricità statica, 
induzione; e) imperizia, negligen¬ 
za, errata manovra, nonché azioni 
dolose e colpose in genere; f) tra¬ 


sporti e smontaggi connessi con la¬ 
vori di pulizia o di manuten¬ 
zione; g) furto e rapina; h) terremo¬ 
to, maremoto o eruzioni vulcani¬ 
che; i) persone che prendono parte 
a tumulti popolari, scioperi, som¬ 
mosse e che peipetrino individual¬ 
mente o in associazione atti di terro¬ 
rismo o sabotaggio verificatisi in 
occasioni di serrate. 

3) Sez. II - Responsabilità Civile 
Terzi: L'assicurazione si intende i- 
noltre prestata per la Responsabili¬ 
tà Civile derivante all'Assicurato 
dalla proprietà e dall'uso personale 
del computer assicurato, identifica¬ 
to nel certificato di assicurazione. I 
massimali di garanzia si intendono 
fissati in: L. 100.000.000 per sini¬ 
stro con il limite di L. 100.000.000 
per ciascuna persona deceduta o 
che abbia subito lesioni personali 
L. 100.000.000 per danni a cose e/o 
animali. 

4) Esclusioni: La Società non è 
obbligata per i danni dovuti a: - do¬ 
lo dell’Assicurato; - corrosione, de¬ 
perimento, logoramento che siano 
conseguenza del normale uso o fun¬ 
zionamento o causati dagli effetti 
graduali degli agenti atmosferici; - 
per i quali deve rispondere il forni¬ 
tore, venditore o locatore degli enti 
assicurati per legge o per contratto 
o per inadeguata manutenzione; - 
causati da difetti di materiale o di 
costruzione che esistevano già all'at¬ 
to della stipulazione della polizza e 
erano a conoscenza dell'Assicurato;- 
causati direttamente o indirettamen¬ 


te da avvenimenti bellici, sommos¬ 
se militari, invasioni, adozione di 
misure da parte di potenze straniere, 
rivoluzione, ribellione, insurrezio¬ 
ne, assunzione ousurpazione di pote¬ 
re di carattere militare, sequestri; - 
verificatisi in occasione di esplosio¬ 
ne, radiazione nuclerare o di conta¬ 
minazione radioattiva; - uso impro¬ 
prio del bene (mancato rispetto del¬ 
le norme di impiego dettate dal co¬ 
struttore); - danni estetici (quelli in¬ 
teressanti l'involucro esterno che 
non sia conseguenza di un danno ri¬ 
sarcibile a termine della presente po¬ 
lizza); - guasti casualmente ricondu¬ 
cibili a interventi, a riparazioni e/o 
modifiche effettuate da un centro 
non autorizzato dalla casa costruttri¬ 
ce della macchina; - danni indiretti 
in cenere. 

5) Operatività della garanzia: a) 
la garanzia è operante solamente se 
gli enti assicurati sono ubicati pres¬ 
so il domicilio dell'Assicurato o in 
luoghi diversi da questi se in posses¬ 
so dell'Assicurato; b) la garanzia è 
pure efficace se i beni si trovano sul¬ 
l'autovettura in uso all'Assicurato, 
salvo i seguenti casi: - qualora l'au- 


Sì! Desidero assicurare i miei/il mio computer, in¬ 
viatemi a stretto giro di posta il certificato emesso dal¬ 
la Ras. L'assicurazione avrà valore a decorrere dalle 
ore 24 del giorno di spedizione delia mia adesione. 
Per la data fa fede il timbro postale. 

COGNOME_ 



NOME. 


INDIRIZZO. 
CAP_ 


Città 


-PROV. 


Assicuro i/il seguente personal: 
Marca e Modello 


N. di matricola 


Valore (Iva compresa) 


Con le seguenti periferiche (stampanti, video, drive, hard-disk, ecc.): 

Marca e Modello N. di matricola Valore (Iva compresa) 


In caso di spazio insufficiente ricopiate su un foglio il tagliando indicando i prodotti che intendete assicurare. 

Per un totale complessivo di Lire ... su cui pa¬ 

go il premio calcolato in base alla tabella riportata qui sopra. Allego assegno non trasferibile di 
Lire.intestato a Editronica srl, Corso Monforte 39, 20122 Milano. 


tovettura venga lasciata incustodita 
dalle ore 22 alle ore 6; - qualora 
l'autovettura regolarmente chiusa a 
chiave venga lasciata incustodita 
dalle ore 6 alle ore 22 e gli enti assi¬ 
curati non opportunamente occulta¬ 
ti nel bagagliaio; c) limitatamente 
ai danni di rottura la garanzia è effi¬ 
cace solamente nel caso questi sia¬ 
no dovuti a un incidente in cui ri¬ 
manga coinvolto anche il veicolo 
in uso dell'Assicurato che trasporta¬ 
va i beni assicurati; d) per gli enti 
per i quali non è stato stipulato il 
contratto di manutenzione e/o assi¬ 
stenza con la casa costruttrice e/o 
ditte di essa mandatarie qualora l'en¬ 
te richieda per norma del fornitore 
detto contratto, la società non ri¬ 
sponde dei danni verificatisi in con¬ 
seguenza di guasto meccanico e/o e- 
lettrico salvo che l'Assicurato pro¬ 
vi che tale guasto sia causato da e- 
vento esterno agli enti assicurati o 
da incendio originato da uno di que¬ 
sti enti. 

6) Somma Assicurata: La somma 
assicurata per ciascun ente deve cor¬ 
rispondere al costo di rimpiazzo, os¬ 
sia al prezzo di listino della casa co¬ 
struttrice ed escluso ogni sconto o 
prezzo di favore di un ente nuovo, 
eguale o equivalente per caratteristi¬ 
che, prestazioni e rendimento eco¬ 
nomico. 

7) Premio: Per ogni singola appli¬ 
cazione è stabilito un premio forfet¬ 
tario omnicomprensivo cosi calco¬ 
lato: 


Somma assicurata 

Premio 

da 

a 

2.500.000 

3.000.000 

50.000 

da 

a 

3.000.000 

5.000.000 

65.000 

da 

a 

5.000.000 

7.000.000 

80.000 

da 

a 

7.000.000 

10.000.000 

100.000 

da 

a 

10.000.000 

15.000.000 

120.000 

da 

a 

15.000.000 

20.000.000 

150.000 


8) Franchigia. Per ogni e qualsia¬ 
si danno che colpisca gli enti assicu¬ 
rati è stabilita una franchigia di: L. 
50.000 per somma assicurata fino a 
L. 5.000.000; L. 100.000 per som¬ 
ma assicurata superiore a L. 
5.000.000. Per sinistri causati da e- 
venti come ai punti g) ed h) delle ga¬ 
ranzie prestate, la Società liquiderà 
i danni sotto deduzione di uno sco¬ 
perto pari al 20% della somma assi¬ 
curata, col minimo delle franchigie 
sopra stabilite. 

9) Rinvio alle norme di legge. 
Per tutto quanto non è qui diversa- 
mente regolato, valgono le norme 
di legge. 


e applicando vi mettono al sicuro 


































• Robot-Plotter Penman GR 1500 

Ecco uno strumento concettualmente innovativo nel 
campo dei plotter. E' in grado di disegnare linee superba¬ 
mente precise, con scelta di colori e forme, su ogni tipo 
di foglio della scrivania. E’ molto più piccolo, compatto 
(340 x 130 x 55 mm) ed economico di ogni altro plotter 
sul mercato e può essere collegato a ogni tipo di compu¬ 
ter, poiché è pilotato da un’interfaccia seriale standard 
RS232 e supportato da una vasta gamma di programmi. 
E' un plotter a 3 colori, ma può essere utilizzato come 
stampante per ottenere documenti in una varietà di stili e 
dimensioni, inoltre può essere facilmente guidato con il 
mouse, la tastiera o direttamente da un linguaggio come 
il Basic o il Logo. Penman offre la possibilità di dise¬ 
gnare curve armoniose, cerchi perfetti e lunghe linee di¬ 
ritte in ogni direzione senza imprecisioni grazie a un pas¬ 
so di 0.003 mm in ogni direzione e a una velocità di 
plottaggio di 50 mm al secondo. Diversamente da altri 
plotter non richiede difficili inserimenti di penne: ne uti¬ 
lizza 3 semplici, a gravità, con selezione automatica. E’ 
però possibile anche inserire penne di tipo Pentel, He¬ 
wlett Packard e simili. La carta utilizzata è di tipo nor¬ 
male, preferibilmente abbastanza assorbente e pesante 
(105 g), mentre il formato può essere di tipo A4, A3 o 
maggiore. Le ruote di guida sono disegnate appositamen¬ 
te per minimizzare ogni scivolata che potrebbe causare 
imprecisioni nel disegno e consentono di tracciare linee 
definite e pulite in ogni direzione senza cambiare il mo¬ 
do di plottaggio. Come ogni altro plotter consente di pi¬ 



lotare il disegno per mezzo di coordinate cartesiane, mo¬ 
vimenti assoluti e relativi e coordinate polari, particolar¬ 
mente utili per plottare linee curve, archi eccetera. Pen¬ 
man costa 994.000 lire più iva ed è distribuito da 
D.S.I., Via Spartaco 34, 20135 Milano, Tel. 

02/5460374. 



• MacDent 

Si tratta di un programma applicativo che va a colma¬ 
re una vistosa carenza nel panorama software per Macin¬ 
tosh. In particolare è un'applicazione che consente la ge¬ 
stione completa di uno studio dentistico sia dal punto di 
vista clinico che contabile. Il programma, realizzato con 
un potente database relazionale inglese, è fornito nella 
versione runtime. E’ concepito espressamente per la real¬ 
tà italiana e interamente realizzato in Italia con l’apporto 
della consulenza di importanti studi dentistici che hanno 
consentito la messa a punto di uno strumento semplice 
nell'impiego, potente ed efficace, che non stravolge le 
normali abitudini lavorative. Il programma è strutturato 
in 3 schede principali: Anagrafica, che comprende i dati 
anagrafici del paziente e un grafico che riporta le due arca¬ 
te dentali, Lavori, che comprende il piano di lavoro vero 
e proprio e i principali dati contabili, e Appuntamenti. 
A queste può aggiungersene una quarta che consente l’in¬ 
serimento, una tantum, delle prestazioni-tipo dello stu¬ 
dio dentistico con relative tariffe. Il programma consente 
di gestire un massimo di 4 dentisti o apparecchiature per 
ogni studio, mentre il numero massimo di pazienti, dei 
piani di lavoro e degli appuntamenti dipende dalla capaci¬ 
tà del disco. Con un disco rigido la dimensione massima 
dell'archivio può raggiungere i 64 megabyte. E’ possibi¬ 
le ottenere una grande varietà di stampe: cartella clinica, 
scheda anagrafica, ricevuta fiscale, nota di risconto, paga¬ 
menti, per cliente eccetera. MacDent costa 880.000 lire 
più Iva ed è distribuito da Paolini, Via Ostiense 48, 
00154 Roma, Tel. 06/5755006. 
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Fontographer 


E* runico editor di font professionale disponibile per 
Macintosh. E’ facile creare nuovi font o aggiungere nuo¬ 
vi caratteri a font già esistenti. In poche ore, con i tool 
grafici di Fontographer, è possibile creare font da stampa¬ 
re con la LaserWriter, LaserWriter Plus o con ogni altra 
device che utilizzi il PostScript. Per ogni carattere sono 
disponibili tre piani di lavoro indipendenti che consento¬ 
no di disegnare con precisione ascendenti e discendenti e 
di mantenere parti comuni in tutto il set. Il carattere va 
definito per mezzo di punti di curvatura, punti tangenti e 
punti d’angolo. Le operazioni di base dell'editor consento¬ 
no di spostare, inserire, cancellare e incollare punti. Il 
programma lavora con coordinate spaziali di massimo 
8000 per 8000. E’ implementata una funzione di zoom 
per vedere le linee nel dettaglio o per verificare il caratte¬ 
re nel suo aspetto complessivo. E' possibile ruotare, 
comprimere, dilatare, anche in scala, il carattere e natural¬ 
mente eseguire le operazioni standard di taglia e incolla. 
Una volta terminata la realizzazione del set un semplice 
click del mouse produce il file con font PostScript che 
può essere caricato sotto la LaserWriter. Fontographer 
costa 395 dollari; per ulteriori informazioni rivolgersi a 
Altsys Corporation P.O. Box 865410, Plano, TX 
75086, 001/214/5964970. 


UTENTE 


t 

3 

i i 

PDSS 
Sistema 
di supporto 
per lo sviluppo 
dei programmi 



Modulo 
Sorgente | 


Pretraduttore 



Ottimizzatore 


Modulo 

Binario 


Consolidatore 


Compilatore 



1 



Modulo 
| Compilato 1 


Interprete 


Architettura del sistema MProlog 


• MProlog (Modular Prolog) 

Il Prolog è un linguaggio della quinta generazione che 
permette al programmatore di risolvere i problemi senza 
essere costretto a specificare i dettagli dell'algoritmo di 
calcolo. Si tratta quindi, a differenza del Pascal, del For¬ 
tran, del Basic e degli altri linguaggi più popolari, di un 
linguaggio non procedurale, sviluppato grazie ai risultati 
delle ricerche degli anni Settanta nell’ambito dell’intelli¬ 
genza artificiale. MProlog è un'estensione del linguag¬ 
gio Prolog che aggiunge importanti aspetti di ingegneria 
del software come modularità, maneggevolezza, portabi¬ 
lità in un ambiente di sviluppo completo. Non è solo 
un linguaggio avanzato di programmazione, ma soprat¬ 
tutto uno strumento completo e potente per progettare e 
realizzare software applicativo. E' stato concepito per es¬ 


sere utilizzato in ambiente professionale e per essere im¬ 
plementato su mainframe come su mini, su workstation 
o su personal computer. La versione per Macintosh è sta¬ 
ta arricchita da un'insieme di tool per gestire l’interfaccia 
utente e la grafica e molte delle routine sono state pro¬ 
gettate per lavorare nello stesso stile di Macintosh. Tut¬ 
tavia il linguaggio è totalmente compatibile con le altre 
versioni e garantisce la perfetta portabilità del software. 
Il linguaggio consente di organizzare il programma in 
semplici moduli importabili ed esportabili che possono 
costituire una libreria. L’ambiente di sviluppo (Program 
Developement Support System) consente un editing, u- 
na debugging e un tracing interattivo. I singoli moduli 
possono essere richiamati ed eseguiti dovunque nella for¬ 
ma interpretata, in quella binaria o in quella compilata. 
In versioni per altri elaboratori procedure scritte in C, 
Fortran e Pascal possono essere addirittura linkate dina¬ 
micamente e richiamate durante l’esecuzione del program¬ 
ma, tuttavia nella versione Macintosh si è cercato di pri¬ 
vilegiare le espansioni grafiche piuttosto che l’interfaccia 
con i linguaggi procedurali. Poiché le fasi di sviluppo e 
di correzione dei programmi possono essere lunghe, l'am¬ 
biente consente di disporre dei moduli nella forma più i- 
donea: possono essere compilati dal Pretranslator in un 
formato ad albero (codice binario); altri moduli possono 
essere linkati dal Consolidator per formare un nuovo mo¬ 
dulo eseguibile dall'Interpreter. L'Optimizer, attraverso 
un'analisi statica del testo produce un nuovo sorgente e 
consente di migliorare l'efficienza del programma, men¬ 
tre il Compiler (disponibile in una prossima versione) 
traduce direttamente in linguaggio macchina fornendo co¬ 
sì la massima velocità possibile. MProlog mette a di¬ 
sposizione più di 150 predicati, molti dei quali multi 
purpose che permettono di gestire il database, i moduli, 
le eccezioni, le stringhe e l'input/output. MProlog è di¬ 
sponibile nella versione didattica (senza PDSS) per Ma¬ 
cintosh 512K al prezzo di 500.000 più Iva e nella versio¬ 
ne 2.1 completa per Machintosh Plus a 1.600.000 più I- 
va. E' distribuito da: TecLogic, Via Da Perugia 68, 
Padova, Telefono. 049/651497. 

• EnterSet 

EnterSet ha presentato una vasta gamma di sofisticati 
accessori per Mac, alcuni dei quali vanno a completare e 
potenziare gli applicativi già esistenti, altri invece posso¬ 
no essere utilizzati direttamente come programmi a se 
stanti. MacGas (Glossary And Spellercheck) può essere 
utilizzato da un word processor ed è in grado di memoriz¬ 
zare un dizionario di 80.000 parole che possono soddisfa¬ 
re gli utenti professionali più esigenti. Il programma 
consente di controllare se in un testo sono presenti errori 
di ortografia ricercando nel dizionario le parole. Se la pa¬ 
rola non è presente nel dizionario questa viene evidenzia¬ 
ta, e l’utente può scegliere se correggerla o aggiungerla 
al dizionario. Le parole possono essere aggiunte al te- 
sauro provvisoriamente o definitivamente. Tra gli altri 
accessori figura QuickWord, sempre in abbinamento con 
un word processor, QuickPaint che consente un accesso 
veloce ai documenti MacPaint, QuickSet 2.0 costituito 
da una serie di utility da tavolo: Calendar, Notefiler, Car- 
dex, Encryptor, Calculator e due nuove Phone Dialer, 
per inviare numeri di telefono a Cardex e Print Spooler 
per l'ottimizzazione dei tempi di stampa. 
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Tutti i dati con il mouse 


Schedarlo EI«U ,#I1 ** 0 


empi di Celcolo 


...Pi elleM»'*» 

r:-u 

l:” r .ud”"..-r* 

etichette 


Impostato sulla Mouse 
Technology, Ped-One 
propone lo stesso elegante 
rapporto tra schermo e 
utente che caratterizza il Mac. 
Così, divertendosi con un 
click di mouse e il menù a 
barre, uno scrolling del video 
e un'icona, si scopre che non 
è solo un gioco, 
ma un valido strumento 
sdi lavoro per r archiviazione. 


Abbinare al vecchio e amato 
Apple II la più sbarazzina tecnica del 
mouse è ormai un'ambizione fatta 
propria da molti pacchetti di recente 
produzione. E' ora disponibile sul 
mercato Ped-one, un nuovo database 
creato per Apple Ile e Apple Ile, che 
prevede l'utilizzo del mouse, con 
248 campi per scheda, scrolling, 
campi calcolati all'interno della 
scheda e tecnologia software in stile 
Macintosh: menu a barre, finestre 
eccetera. 

Ped-one, scritto in Apple Pascal, 
viene fornito in due dischetti nelle 
versioni da 5 1/4" e da 3,5" da usare 
con il recente unidisk che ne molti¬ 


plica la capacità di archiviazione e la 
velocità. 

La prossima versione, la cui usci¬ 
ta è prevista per il mese prossimo e 
che contempla tra l'altro un aggan¬ 
cio con dati di AppleWorks, sarà svi¬ 
luppata in Kyan Pascal, un nuovo 
linguaggio definibile Pascal-ProDos 
quattro volte più veloce dell'Apple 
Pascal e due volte più veloce del 
Turbo Pascal. 

Il programma è strutturato a sche¬ 
de con un massimo di 248 campi 
per ognuna. La dimensione massima 
dell'archivio è limitata dalla capacità 
del dischetto; questo porta a consi¬ 
gliare l'utilizzo di una configurazio¬ 


ne con Unidisk. L'impaginazione a 
video si presenta su 80 colonne e 60 
righe. 

Creazione 
di una maschera 

La creazione della maschera di o- 
gni scheda viene fatta prendendo e 
spostando sul video ogni campo va¬ 
riandone il layout a piacere con il 
mouse. Inoltre in qualsiasi momen¬ 
to è possibile modificare il nome, la 
posizione, la lunghezza di ogni cam¬ 
po senza per questo danneggiare o 
perdere il contenuto dell'archivio. In 
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Tre database a confronto: 



PED-ONE 

PFS file 

CFS file 

STRUTTURA DELL’ARCHIVIO 

a scheda 

a scheda 

a scheda 

dimensione max archivio 

capac.disco 

capac.disco 

capac.dis 

numero max campi per record 

248 

100 

N/A 

dimensione max nome del campo 

3 pagine 

32 pagine 

2 pagine 

dimensione max caratteri per campo 

80 caratteri 

32 pagine 

2 pagine 

numero archivi collegabili 

ora nessuno 
(prossima release 
con AppleWork) 

nessuno 

nessuno 

TIPI DATO DISPONIBILI 

numerico 

si 

si 

si 

alfabetico 

si 

si 

si 

alfanumerico 

si 

si 

si 

formula 

si 

no 

no 

decimali sui c. numerici 

si 

no 

no 

calcoli sui campi nel record 

si 

no 

no 

utlizzo del mouse 

si 

no 

parziale 

gestione video a finestre (tecn. Macintosh) 

si 

no 

no 

inserimento testo nella scheda 

si 

si 

no 

MODIFICA DELLA STRUTTURA DELL’ARCHIVIO 

modifica della posizione del campo 

si 

si 

no 

modifica del nome del campo 

si 

si 

no 

modifica della lunghezza del campo 

si 

si 

no 

modifica automatica del contenuto del campo 

no 

no 

no 

modifica automatica della lunghezza del campo 

si 

no 

no 

modifica dei tipi-dato 

si 

si 

si 

aggiunta di campi 

si 

si 

si 

costituzione di un archivio da due preesistenti 

no 

si 

no 

costruzione di un sottoinsieme dell’archivio 
modifica della struttura dell’archivio senza 

si 

si 

si 

perdere o danneggiare il contenuto 

si 

no 

no 

ORDINAMENTI 

livelli di ordinamento 

1 

1 

1 

ordinamento sui numeri 

si 

si 

si 

ordinamenti su sottoinsiemi dell’archivio 

si 

si 

si 

ordinamenti sulle tabelle 

si 

si 

si 

SELEZIONE 

numero dei campi di selezione 

tutti 

tutti 

tutti 

memorizzazione delle caratteristiche di selezione 

si 

no 

si 

STAMPE 

diversificazione di stampe 

si 

no 

no 

memorizzazione di diversi formati stampa 

si 

no 

no 

Possibilità si stampe su moduli prestampati 

si 

no 

no 

posizionamento a misura dei Campi 

si 

no 

no 

Visualizzazione a video dei vari formati stampa 

si 

no 

no 


ogni caso il programma permette di 
cambiare il prospetto, eliminando o 
spostando determinati campi, e di vi¬ 
sualizzarlo anche in fase di report. 

Il nome del campo ha una dimen¬ 
sione massima di 80 caratteri mentre 
alfintemo di ognuno è possibile in¬ 
serire fino a 3 pagine di testo. 

Ped-1 accetta qualsiasi tipo di da¬ 
to, numerico, alfabetico, alfanumeri¬ 
co e anche finserimento di un testo, 
che, però, non può essere modificato 
ma rimane come è stato impostato 
alla creazione della maschera. All’in¬ 
terno dei campi numerici un’attenzio¬ 


ne particolare va dedicata alla possi¬ 
bilità di avere dei campi calcolati 
dentro la scheda, ulteriormente esalta¬ 
ta dalla gestibilità di 10 decimali per 
ogni campo numerico e dal fatto che 
il calcolo avviene subito per ogni 
scheda e non solo in fase di report. 

Sort e ricerca, 
stampe e report 

Il sort è previsto a un livello ed è 
possibile effettuare ordinamenti su 
numeri e su sottoinsiemi d'archivio 


per qualsiasi campo della scheda. 
L’ordinamento richiede un po’ di tem¬ 
po, proporzionale al numero delle 
schede inserite nello schedario. Il 
programma prevede un ordinamento 
in memoria fino a 320 schede. Qua¬ 
lora le schede superassero questo nu¬ 
mero il programma richiede il disco 
Sort di Stampa. 

La ricerca è prevista su tutti i cam¬ 
pi e può essere memorizzata. Le 
stringhe di selezione sono strutturate 
in modo da poter effettuare precise ri¬ 
cerche sia per i dati numerici, sia per 
quelli alfanumerici, sia sulle tabelle. 
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tutte le prestazioni 



PED-ONE 

PFS file 

CFS file 

STRINGA DI SELEZIONE 




minore 

si 

si 

si 

minore uguale 

si 

si 

no 

maggiore 

si 

si 

si 

maggiore uguale 
uguale 

si 

si 

no 

si 

no 

si 

diverso 

si 

si 

no 

jolly 

si 

si 

no 

compreso 

si 

si 

no 

contenuto 

si 

si 

si 

inizia con 

si 

si 

si 

finisce con 

si 

si 

si 

vuoto 

si 

si 

no 

non vuoto 

si 

si 

no 

data 

si 

si 

no 

ricerche in OR su campi diversi 

no 

no 

no 

ricerche in OR sullo stesso campo 

no 

no 

no 

ricerche AND su campi diversi 

si 

si 

si 

ricerche AND sullo stesso campo 

si 

no 

no 

uso simultaneo di AND ed OR 

no 

no 

no 

REPORT 

si 

no 

no 

visualizzazione a video dei Report 

si 



ordinamenti in fase di report 

si 


* 

SELEZIONE DI PARTE DELL'ARCHIVIO 




sui record 

si 



sui campi 

si 



CALCOLI SUI CAMPI IN FASE DI REPORT 




somma 

si 



media 

si 



minimo 

no 



massimo 

no 



totali 

si 



totali parziali 

no 



CALCOLI TRA CAMPI 




moltiplicazione 

si 



divisione 

si 



somma 

si 



sottrazione 

si 



con formule 

si 



con decimali 

si (max 10) 



MEMORIZZAZIONE DI REPORT 

si 



ETICHETTE 

si 



NUMERO DI ARCHIVI APERTI 

1 



COLLEGAMENTO CON ALTRE APPLICAZIONI 

orano (prossima release 

con AppleWork) 



E' possibile cercare una scheda, inse¬ 
rendo il relativo parametro, fino a un 
massimo di quattro campi. Fra gli al¬ 
tri spicca la selezione per data di ere¬ 
zione della scheda e il Jolly, una 
stringa di selezione lasciata libera 
all’utente. 

La prima peculiarità del program¬ 
ma di stampa è quella di poter gesti¬ 
re dei testi per effettuare mailing e 
lettere personalizzate. 

La seconda è quella di avere a di¬ 
sposizione dei righelli che permetto¬ 
no di posizionare con il mouse i di¬ 
versi campi per stampare con preci¬ 


sione su moduli opportunamente pre¬ 
stampati. 

Sottolineate queste due possibili¬ 
tà, il programma permette altre o- 
pzioni come visualizzare a video i 
singoli formati prima dell’output sul¬ 
la stampante e memorizzarli una 
volta stampati. 

Da notare che sia nella scheda che 
nei formati di stampa è possibile in¬ 
serire dei caratteri di controllo per 
stampare in grassetto, in espanso o, 
ancora, in compresso. 

Le stesse opzioni sono previste 
per l’eventuale testo inserito nella 


scheda. Per quanto riguarda i report è 
da segnalare che il calcolo sui campi 
prevede, oltre alle quattro operazioni 
aritmetiche, la media su determinati 
campi numerici. Anche i report sono 
memorizzabili e possono essere ordi¬ 
nati (sort). 

Ped-one è stato realizzato in Italia 
dalla PPS Personal Pascal Software, 
V.le M. Libertà 103, 20035 Lissone 
(MI) ed è distribuito sul territorio 
nazionale dalla stessa PPS e dalla 
Bits & Bytes di Milano. Il prezzo di 
listino del programma Ped-one è di 
lire 327.000, Iva com-presa. 
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informatica 


presenta 

m KEYDATA 

L'EVOLUZIONE CHE GIRA NEL TEMPO 




I MINIDISKETTE 5 //, 4 KEY-DATA SONO DISPONIBILI 
IN VARIE COLORAZIONI 


T< 

1 
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UTILITY 


ì 


One-liners 


Quasi inesauribile! Continua la 
presentazione dei programmi su una 
riga sola: da studiare, per imparare 
una lezione di sinteticità, da trasferi¬ 
re alfintemo di un programma, da u- 
tilizzare così come sono. 

Ecco il primo di questa puntata: u- 
na routine grafica di ottimo risulta¬ 
to. Se desiderate salvare la figura, 
battete CTRL-RESET e quindi BSA- 
VE FIGURA, A$4000,L$2000. 


Listato 76 

2 HGR2:POKE 232,0: POKE 233,3 

: FOR I = 768 TO 776: READ R 
: POKE I,R: NEXT I: DATA 1,0 
,4,0,48,34,29,15,0: SCALE= 8 
: FOR A = 0 TO 26 STEP .02:R 
= R + 2 - (R > 62) * 64 :ROT= 
R:X = 80 * COS (3 * A / 4): 

DRAW 1 AT 138 + X * COS (A 
),95 + X * SIN (A): NEXT A: 
END 


Questa pregevole routine in assem¬ 
bler vi permette di rimediare a un co¬ 
mando FP o NEW dato inavvertita¬ 
mente. Dopo il fatidico comando, 
battete BRUN seguito dal nome del¬ 
la routine, e ritroverete il vostro pro¬ 
gramma. 


Listato 77 







0300- 

D8 

A5 

67 

A4 

68 

85 

5E 

84 

0308- 

5F 

A0 

01 

98 

91 

5E 

A0 

04 

0310- 

C8 

B1 

5E 

DO 

FB 

C8 

98 

18 

0318- 

65 

5E 

85 

5E 

90 

02 

E6 

5F 

0320- 

A0 

01 

B1 

5E 

DO 

E8 

A9 

03 

0328- 

18 

65 

5E 

85 

69 

A5 

5F 

69 

0330- 

00 

85 

6A 

4C 

F2 

D4 

03 

68 

0338- 

CD 

00 

E0 

F0 

03 

AD 

80 

CO 

0340- 

B1 









Volete un metodo originale e sono¬ 
ro di pulizia del video? Potete utiliz¬ 
zare questa routine è in Assembler. 


Listato 78 







0300- A9 

00 

85 

01 

85 

00 

A5 

00 

0308- 20 

5B 

FB 

A0 

27 

B1 

28 

C9 

0310- A0 

F0 

0F 

38 

E9 

01 

91 

28 

0318- A2 

0A 

86 

01 

AD 

30 

CO 

CA 

0320- 10 

FA 

88 

10 

E8 

E6 

00 

A5 

0328- 00 

C9 

18 

DO 

D9 

A5 

01 

DO 

0330- CF 

60 

6A 







Questa routine usa un'interessante 
tecnica per creare l'immagine in alta 
risoluzione del vostro frutto prefe¬ 
rito:....la mela. 

Il segreto è tutto nella stringa di 
caratteri che contiene i comandi gra¬ 
fici. 


Listato 79 

9 W$="01112222333222111005ADGI 

JKLMMMNOOPPPPPPPPPPPPPPPPPPP 
PPPPMMMMMMKKHGE77": HGR :FOR 
I = - 14 TO 70: HCOLOR= (ABS 
((I + 5) / 10) + (I < 5) + ( 
I > 34)) * (I < 55):Y « I + 
40 - 49 * (I > 54):T = ASC 
( MID$(W$,I + 15 - 16 * (I > 
54), 1)) - 47:C = 131 - (I - 
2) * (I < 3) + 46 * (I > 54) 

: HPLOT C - T,Y TO C + T,Y: 
NEXT 


Ecco un breve one-liner in Assem¬ 
bler. Ogni tasto produce un suono 
musicale. Si salva su disco con 
"BSAVE MUSIC, A$300,L$1F". 
Si attiva con BRUN o da Basic con 
"CALL768". Si esce da questa rou¬ 
tine battendo <CTRL-RESET>. 


Listato 80 







0300- 

AF 00 

CO 

10 

FB 

8F 

10 

CO 

0308- 

87 03 

EB 

7F 

87 

04 

07 

04 

0310- 

A7 04 

8F 

30 

CO 

C7 

03 

F0 

0318- 

E7 EB 

01 

DO 

FC 

F0 

FI 

CA 


Ecco un velocissimo contatore nu¬ 
merico in Assembler. Effettua il con¬ 
teggio da zero a un milione in soli 
6.9 secondi! Si salva su disco con l'i¬ 
struzione 

"BSAVE COUNTER,A$300,L$8C" 
Si attiva con BRUN oppure, da Ba¬ 
sic, con "CALL768"; si disattiva 
con "CTRL-RESET". 


do a lavorare sotto il suo controllo. 
Un'applicazionepotrebbeesserequel- 
la di cambiare le parole chiave o i 
messaggi di errore i cui indirizzi di 
partenza sono rilevabili usando "one- 
liner 74". Questo è un un esempio 
di utilizzo. Dato il "RUN” vedrete 
sul video la parola"mod:" scrivete la 
seguente istruzione "D270: 41 50 
50 4C 49 A0 42 42 4C N” seguita 
da <RETURN>. Ora, premendo una 
lettera qualsiasi seguita da <RETUR- 
N> avrete una sorpresa! funziona so¬ 
lo in DOS 3.3. 


Listato 82 

1 C$= M C081 C081 D000<D000.FFFF 

M M : PRINT "MOD:";: FOR 1=1 
TO 239: GET A$: PRINT A$;:C 
$ = C$ + A$:I = I + 300 * (A 
$ = CHR$ (13)): NEXT I:C$ = 
LEFT$ <C$, LEN (C$) - 1) + 
"N C080 D823G": FOR I = 1 TO 
LEN (C$): POKE 511 + I, ASC 
( MID$ (C$,I,1)) + 128: NEXT 
: POKE 72,0: CALL - 144 


Ecco un videogame automobilisti¬ 
co. All'inizio dovrete stabilire la lar¬ 
ghezza della pista, secondo la vostra 
abilità. Usate freccia destra - freccia 
sinistra e barra spazio per guidare la 
vostra auto, rappresentata da una 
"Y", lungo la pista. La corsa termi¬ 
na quando urtate il bordo della pista. 
Il computer indicherà quanti Km. a- 
vete percorso. 


Listato 81 


0300- 

0308- 

0310- 

0318- 

0320- 

0328- 

0330- 

0338- 

0340- 

0348- 

0350- 

0358- 

0360- 

0368- 

0370- 

0378- 

0380- 

0388- 


20 58 
B9 05 
B9 4C 
1C EE 
05 DO 
EE BD 
DO 03 
EE CO 
05 EE 
CO 05 
8D CO 
8D BF 
8D BE 
8D 8D 
8D BC 
8D BB 
8D BA 
8D B9 


FC A9 
CA 10 
35 03 
BA 05 
12 EE 
05 DO 
EE BF 
05 EE 
CO 05 
EE CO 
05 88 
05 EC 
05 EC 
05 EC 
05 EC 
05 EC 
05 EC 
05 60 


B0 A2 
FA A0 
EE B9 
DO 17 
BC 0 5 
08 EE 
05 EE 
CO 05 
EE CO 
05 EE 
10 DC 
BE 05 
BD 05 
BC 05 
BB 05 
BA 05 
B9 05 
12 


07 9D 
09 A2 
05 DO 
EE BB 
DO OD 
BE 05 
CO 05 
EE CO 
05 EE 
CO 05 
A0 09 
DO CD 
DO CO 
DO B3 
DO A6 
DO 99 
DO 8C 


Ecco un'ottima routine che permet¬ 
te di modificare i codici memorizzati 
nella ROM dell'Apple copiando la 
ROM stessa nella RAM e continuan- 


Listato 83 

1 INPUT M LARGHEZ.PISTA:";W:FOR 
I = 1 TO 24: PRINT "**" SPC( 
W) NEXT :P = 2: FOR I = 

0 TO 1 :H = H + (H < 1) -(H > 
36-W):HTAB H:PRINT "**" SPC{ 
W) "**" :H = h + SGN ( RND (1 
) - .5):K = PEEK (49152):P= 
P + (K = 149) - (K = 136): 1 = 
PEEK (1192 + P)>160 :Z =PEEK 
(49200): POKE 1192 + P,217:S 
= S + 1: NEXT : PRINT "KM:" 
INT (S / 28) 


Cento programmi One-Liner 
sono disponibili su dischetto. 

I prezzi e le modalità d’ordine di 
questo e degli altri dischetti 
disponibili, sono riportati nella 
rubrica Disk Service. 
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Mosè/1 



Una sfida più 
affascinante. Il più 
antico gioco di 
strategia reso 
ancor più 
stimolante. Con la 
possibilità di 
registrare la partita 
e rigiocarla in 
qualsiasi 
momento. Di 
tornare indietro e 
muovere in modo 
diverso. Di 
ricevere 
suggerimenti tattici 



dal computer. Di 
giocare in due, da 
soli, o anche di far 
giocare 

Macintosh contro 
se stesso. Ma la 
Dama francese non 
è solo questo: è 
più creativa, 
piccante, 
coinvolgente, 
appassionante. 
Allora, se sei 
stanco della solita 
dama, prova con la 
dama francese... 


Piova 

con la dama francese 


Ritagliare e spedire in busta chiusa a: 
Editronica Srl 

Corso Monforte 39, 20122 Milano. 

Cognome e nome . 

Indirizzo . 

Cap . Città .Prov. 

Sì, desidero acquistare La dama francese. 

Scelgo la seguente formula di pagamento: 


Accludo assegno non trasferibile di lire 140.000 
(Iva e spese di spedizione comprese), intestato 
a Editronica Srl. 

Q Accludo ricevuta di versamento su conto 
^ corrente postale n. 19740208 intestato 
a Editronica Srl, di lire 140.000 (Iva e spese 
di spedizione comprese. 

O Desidero fattura. Il mio Codice fiscale/Partita Iva è: 












































































































Quanti linguaggi di sviluppo esistono per Macintosh? 

Eccone circa cinquanta, oltre alle cosiddette strade parallele e ai 
molti sistemi di prossima introduzione: ormai Macintosh non è 
assolutamente un sistema "chiuso" come era quando è nato. 
Chiunque, dall'hobbista al programmatore professionista, ha a 
disposizione gli strumenti per programmare Mac con risultati 
interessanti, trovando le giuste soluzioni ai suoi problemi applicativi. 


Che linguaggio 
parla Macintosh 


Creare programmi applicativi per 
Macintosh è un'attività abbastanza di¬ 
versa dalla produzione di programmi 
per i microcomputer più primitivi 
delle generazioni precedenti, princi¬ 
palmente perché i programmi devo¬ 
no essere costruiti seguendo l'inter¬ 
faccia utente standard di Macintosh. 
Questa interfaccia offre il mouse co¬ 
me strumento principale di input e u- 
sa la tastiera praticamente solo per 
rinserimento di testo. Inoltre lo 
sfruttamento di caratteristiche come 
menù pull-down, finestre multiple, 
finestre di dialogo e icone sono un 
obbligo, se non altro per far sì che 
la propria applicazione si conformi 
all'interfaccia utente Macintosh e go¬ 
da quindi delle caratteristiche che gli 
utenti Macintosh si aspettano. Così 
lo sforzo iniziale richiesto allo svi¬ 
luppatore di software per comprende¬ 
re come modellare l'applicazione sul¬ 
l'interfaccia Macintosh è spesso ele¬ 
vato in rapporto a quello dedicato al¬ 
la soluzione dei problemi strettamen¬ 
te concernenti l'applicazione. Tale 
sforzo iniziale è però un investimen¬ 
to, in quanto lo sviluppo successivo 
diventa molto più semplice e le ap¬ 
plicazioni risultanti, se ben conge¬ 
gnate, risultano enormemente più fa¬ 
cili da apprendere e utilizzare rispetto 
ai programmi analoghi realizzati con 
un'interfaccia utente tradizionale. 

Verranno presi brevemente in esa¬ 


me tutti i sistemi attualmente dispo¬ 
nibili per programmare il Macinto¬ 
sh, raggruppati a seconda del tipo di 
utilizzo cui sono destinati (hobbisti¬ 
co, semiprofessionale, professiona¬ 
le). Il tipo di applicazioni che si pos¬ 
sono sviluppare su Mac può infatti 
andare dal semplice programma con 
interfaccia tradizionale (tipicamente 
per uso personale) fino ad applicazio¬ 
ni estremamente sofisticate che sfrut¬ 
tano a fondo le possibilità offerte dal¬ 
l'insieme di routine presenti nelle 
ROM di Mac (il cosiddetto Toolbox) 
e le capacità di elaborazione del suo 
processore 16/32 bit. 

Grazie alla ricchezza di strumenti 
software contenuti nel Toolbox il 
programmatore può avere il comple¬ 
to controllo dell'interfaccia utente se¬ 
condo i canoni Macintosh. Perciò è 
di fondamentale importanza per un si¬ 
stema di sviluppo professionale la 
possibilità di accesso alle routine del 
Toolbox e una buona integrazione 
con queste, mentre per un uso di ti¬ 
po hobbistico o personale l'esigenza 
è meno stringente. 

Tenete presente che per il Macinto¬ 
sh esiste una sorta di Bibbia della 
programmazione: "Inside Macinto¬ 
sh". Questo volume, in vendita pres¬ 
so gli Apple Center, contiene tutte 
le informazioni necessarie per utiliz¬ 
zare appropriatamente le routine del¬ 
le ROM del ToolBox. Altri libri sul¬ 


la programmazione del Macintosh so¬ 
no reperibili presso le librerie specia¬ 
lizzate più fomite. Tra questi è parti¬ 
colarmente valido il paio della serie 
Macintosh Revealed dell’editore Ha- 
yden Book. I titoli sono: "Unlockin- 
g thè Toolbox" e "Programming wi- 
th thè Toolbox." Autore di entrambi 
è Stephen Chemicoff, uno degli auto¬ 
ri di "Inside Macintosh". 

Hobbistica 
e didattica 

A scopo didattico sono disponibili 
il Logo della Microsoft e lLxperLo- 
go della Expertelligence. Grazie alla 
facilità d'uso e alla sintassi estrema- 
mente simile all'inglese, questo lin¬ 
guaggio è diventato quasi uno stan¬ 
dard nelle scuole per l'introduzione al¬ 
l'informatica per i bambini. ExperLo- 
go, una versione molto potenziata 
del Logo di base, usa una versione 
tridimensionale della Turtle Graphics 
chiamata Bunny Graphics. Anche la 
Terrapin, società da tempo presente 
con sistemi Logo di grande qualità 
su Apple II e altri sistemi, renderà 
tra breve disponibile un Logo piena¬ 
mente integrato nel mondo Macin¬ 
tosh. 

Il Forth è un linguaggio che ha a- 
vuto un notevole successo negli ulti¬ 
mi anni soprattutto su piccole mac- 
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chine. Mac Forth della Creative So¬ 
lutions è distribuito in tre diverse 
versioni (Level 1, 2 e 3); la versio¬ 
ne di livello 1 è un ambiente interat¬ 
tivo comprendente un editor e un in¬ 
terprete, permette di definire menù e 
finestre e ha primitive per la grafica 
e il suono. Questo sistema è adatto 
solo per un primo approccio al lin¬ 
guaggio, dalle caratteristiche interes¬ 
santi e allo stesso tempo abbastan¬ 
za inusuali, e non certo per un uso 
di tipo professionale, mentre i livel¬ 
li 2 e 3 sono adatti per lo sviluppo 
di applicazioni più complesse e ver¬ 
ranno descritti in seguito. 

Macintosh Pascal della Apple è un 
ambiente interattivo interpretato per 
il Pascal. Dispone di un editor inter¬ 
no con capacità di formattazione e 
controllo sintattico istantanei, stru¬ 
menti di debugging e tracing a livel¬ 
lo simbolico, la possibilità di gesti¬ 
re finestre di testo e grafiche, gestio¬ 
ne del floating point secondo lo stan¬ 
dard IEEE. E’ uno splendido stru¬ 
mento per avvicinarsi al linguaggio 
Pascal proprio grazie al particolare 
ambiente di programmazione che 
mette a disposizione, ma non può es- 


NEW FOR THE APPLE 


S.D.S.II SISTEMA DI SVILUPPO PER 6502 


L’SDS II è in sistema di sviluppo concepito con io scopo di 
permettere la scrittura e la successiva verifica di software in 
assembler nonché il collaudo circuitale di apparecchiature im¬ 
pieganti il microprocessore 6502. Esso consente di scrivere 
programmi su APPLE II / Ile utilizzando assembler di uso co¬ 
mune quali BIG-MAC o TOOL-KIT, di trasferire il software sul¬ 
la macchina in collaudo e di farlo girare sotto il suo completo 
controllo, indipendentemente da come è mappata la memo¬ 
ria dell’apparecchiatura in prova facendo riferimento diretta- 
mente alle labels del programma sorgente. Grazie ai diversi 
tipi di break-points hardware è possibile far girare il sistema 
in prova alla sua normale velocità di funzionamento e stabili¬ 
re una finestra entro la quale il processore viene gestito 
dalI’SDS II in maniera tale da poter visualizzare lo stato del si¬ 
stema durante il funzionamento. 

INTERRUZIONI: Su 2 + 10 break points alla fine di un tempo 
variabile, dopo un numero impostabile di istruzioni, su più pa¬ 
rametri del processore o della memoria. All’atto dell’interru¬ 
zione è possibile editare o stampare tutti i parametri e lo stato 
del sistema. HARDWARE: 

• microprocessore : 6502 (65C02) 

• sistema di supporto: Apple II /Ile con almeno un drive 

• espansione 16K : solo per BIG-MAC 64K. 

• frequenza di clock : 2MHz. 

• memoria : 64 Kbyte configurabili a blocchi di 

256 Byte a seconda delle esigenze del sistema da sviluppare. 

• dimensioni : cm 44x35x4H (una unità rack). 

Per applicazioni Low Cost può essere fornita la sola scheda corredata di probe. 



Disponiamo inoltre di prodotti per acquisizione dati e misure per utilizzo scientifico 
industriale e prodotti per acquisizione immagini da telecamera. Per informazioni: 

PERIFERICHE 

■■ Lf—LsLr-O U LÌ=U=3 telecomunicazioni 

VIA ORMEA N° 99 CAP. 10126 TORINO 
TEL. 011 - 655865 ■ 651574 (Service) ■ TELEX 224243 PERTEL I 

APPLE È UN MARCHIO REGISTRATO 


sere considerato uno strumento di 
produzione professionale per la sua 
natura di interprete, che ne limita 
l’efficienza, e per l’accesso limitato 
al Toolbox. Tuttavia è stato annun¬ 
ciato da Think Technologies il relati¬ 
vo compilatore, che darà quindi nuo¬ 
va vita a questa versione del lin¬ 
guaggio. 


I quasi professionali 

Il linguaggio principe per l’hobbi- 
sta è il Basic; è sicuramente il lin¬ 
guaggio più diffuso soprattutto in 
questa categoria di utenti, anche se è 
stato purtroppo spesso usato (non 
sempre appropriatamente) per lo svi¬ 
luppo di complesse applicazioni. 


Programma 


Distributore 


Rivenditore 


Prezzo 


Livello 


68000 Assembler 


Apple 


Rivenditori autorizzati 
Apple 


L. 


230.100 


★ ★ ★ 


APL 


Non disponibile in Italia 


Portable Software 


* ★ ★ ★ 


Aztec C Compiler 


Manx 


Cominfor 

Corso Francia 30 Torino 
T. 011/740547 


L. 1.200.000 


★ ★ ★ ★ 


Excel 


Microsoft 


J. Soft 

Via Rosellini 12 Milano 
T. 02/6888228 


L. 


977.064 


Experfacts 


Non disponibile in Italia 


250 


Expertelligence 


★ ★ ★ ★ 


ExperLisp 


Expertelligence 


Bits & Bytes 

Via S.Fran. d'Assisi 8 Milano 
T.02/8376207 


1.412.000 


★ ★ ★ ★ 


Experlogo 


Expertelligence 


Bits & Bytes 

Via S.Fran. d'Assisi 8 Milano 
T.02/8376207 


431.000 


★ ★ 


ExperOPS5 


Expertelligence 


Bits & Bytes 

Via S.Fran. d'Assisi 8 Milano 
T.02/8376207 


L. 


929.000 


★ ★ ★ ★ 


Fortran 


Microsoft 


J. Soft 

Via Rosellini 12 Milano 
T. 02/6888228 


L. 


845.000 


★ ★ ★ ★ 


Fortran 77 


Non disponibile in Italia 


295 


Softech 


★ ★ ★ ★ 


Helix 


Odesta 


Bits & Bytes 

Via S.Fran. d'Assisi 8 Milano 
T.02/8376207 


L. 1.134.000 


Hippo C 


Hippopotamus SW 


Bits & Bytes 

Via S.Fran. d'Assisi 8 Milano 
T.02/8376207 


428.500 


★ ★ ★ ★ 


Logo 


Microsoft 


Itafware 

V.le Europa 48 Cologno M. 
(MI) T. 02/25141 


L. 


272.000 


★ ★ 


MacAdvantage Pascal 


Softech 


Rivenditori autorizzati 
Apple 


700.000 


★ ★ ★ ★ 




























































Quando si parla di Basic si parla non 
tanto di un linguaggio preciso, ma 
di un insieme di linguaggi dalle ca¬ 
ratteristiche simili. Pur essendo si¬ 
mili tra loro, i vari Basic si differen¬ 
ziano spesso in maniera sostanziale 
sia nella sintassi che nelle capacità e- 
spressive. Il successo di questo lin¬ 
guaggio è da attribuire alla sua sem¬ 


plicità, da intendere come mancanza 
di strutture complesse, che è però an¬ 
che il suo limite non appena il pro¬ 
blema da risolvere necessita di que¬ 
ste strutture. E’ difficile che un’appli¬ 
cazione in Basic possa definirsi pro¬ 
fessionale, sia per limitazioni intrin¬ 
seche della struttura del linguaggio 
che per le sue prestazioni. 


Per Macintosh sono attualmente 
disponibili: Microsoft Basic 2.1, So- 
ftworks Basic, PC Mac Basic della 
Pterodactyl Software e il True Basic 
prodotto dalla Addison Wesley. 

Microsoft Basic è un interprete in 
buona parte compatibile con il noto 
MS Basic o Basic A largamente diffu¬ 
so e funzionante su una vasta gam¬ 
ma di personal computer operanti 
col sistema operativo MSDOS o 
PCDOS. Dà la possibilità di utiliz¬ 
zare abbastanza agevolmente la tipi¬ 
ca interfaccia Mac con finestre, me¬ 
nù pull-down, mouse, generazione 
di suono ecc. e ha inoltre alcune ca¬ 
ratteristiche avanzate quali: definizio¬ 
ne di funzioni con variabili locali, 
possibilità di intercettare "eventi", 
gestione della memoria, operazioni 
floating point e funzioni di tracing. 
Questo sistema di sviluppo permette 
di gestire direttamente da Basic le in¬ 
terfacce, ma non dà l'accesso diretto 
alle routine del Toolbox. Il principa¬ 
le limite di questo sistema per un u- 
so professionale è la sua natura di in¬ 
terprete che impedisce la creazione di 
programmi autonomi. L'ideale sareb¬ 
be poter avere entrambi: l'interprete 
per poter sviluppare in maniera inte¬ 
rattiva le parti del programma e il 
compilatore per crearne la versione 
finale, con prestazioni molto supe¬ 
riori alla versione interpretata e una 
forma risultante distribuibile, ovve¬ 
ro non più in sorgente. Del relativo 
compilatore si parla infatti da tem¬ 
po... verrà alla luce, ma ci vuole an¬ 
cora un po’ di pazienza! 

Softworks Basic è formato da un 
precompilatore e da un run-time. Ri¬ 
spetto a MS Basic si perdono i van¬ 
taggi dell'ambiente interpretativo e 
poco si gu adagna per quanto riguarda 
l'autonomia del programma, se non 
per il fatto che Softworks lascia la 
possibilità di distribuire senza royal- 
ties, insieme al programma creato, 
la propria libreria di run time. Il si¬ 
stema permette di accedere diretta- 
mente al Toolbox anche se l'inter¬ 
facciamento con le strutture dati Pa¬ 
scal del Toolbox diventa abbastanza 
ostico. Tuttavia attualmente può rap¬ 
presentare una soluzione valida per 
poter guadagnare in termini di presta¬ 
zioni e avere un prodotto distribuibi¬ 
le, senza dover distribuire il sor¬ 
gente. 

PC Mac Basic opera sia su Lisa in 

* Programmi forniti gratuitamente da 
Apple a programmatori professionisti. 


Programma 

Rivenditore 

Prezzo 

Distributore 

Livello 

MacC 

Non disponibile in Italia 

$ 295 

Consulair Corporation 

★ ★ ★ ★ 

MacCoboI 

Non disponibile in Italia 

$ 2.000 

MicroFocus 

★ ★ ★ ★ 

MacProlog 

Non disponibile in Italia 


Programming Logic Systems 

* ★ ★ ★ 

MacApp * 

Apple Computer Spa 

Pal.Q8 Milanofiori Rozzano 

T. 02/8242156 

★ ★ ★ ★ 

Apple 

MacASM 

Bits & Bytes 

Via S.Fran. d'Assisi 8 Milano 
T.02/8376207 

L. 287.000 

★ ★ ★ ★ 

Mainstay 

MacExpert 

Non disponibile in Italia 


Minò Soft 

★ ★ ★ ★ 

MacForth 1 

Bits & Bytes 

Via S.Fran. d'Assisi 8 Milano 
T.02/8376207 

L. 428.500 

★ ★ 

Creative solution 

MacForth 2 

Bits & Bytes 

Via S.Fran. d'Assisi 8 Milano 
T.02/8376207 

L. 717.000 

★ ★ ★ ★ 

Creative solution 

Macintosh Dev. Syst. 

Rivenditori autorizzati 

Apple 

L. 195.000 

★ ★ ★ ★ 

Apple 

Macintosh Pascal 

Rivenditori autorizzati 

Apple 

L. 260.000 

★ ★ 

Apple Computer 

MacModula-2 

Non disponibile in Italia 

$ 150 

Modula Corporation 

★ ★ ★ ★ 

MasterForth 

Non disponibile in Italia 

$ 125 

MicroMotion 

★ ★ ★ ★ 

Megamax C 

Non disponibile in Italia 

$ 299 

Megamax 

★ ★ ★ ★ 

Microsoft Basic 2.0 

J. Soft 

Via Rosellini 12 Milano 

T. 02/6888228 

L. 393.000 

★ ★ ★ 

Microsoft 
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ambiente Workshop che direttamen¬ 
te su Mac. E’ un compilatore in gra¬ 
do di generare applicazioni Macinto¬ 
sh stand-alone. Questo Basic permet¬ 
te il facile trasporto su Mac di pro¬ 
grammi scritti per sistemi MSDOS. 
Essendo compatibile con Basic A, la 
maggior parte delle funzioni vengo¬ 
no automaticamente tradotte secondo 

10 standard Mac (le chiavi funzionali 
diventano item di menù, pagine vi¬ 
deo multiple vengono viste come di¬ 
verse finestre). L’accesso al Toolbox 
è permesso attraverso specifiche i- 
struzioni del linguaggio per quanto 
riguarda menù, dialog, alert boxes, 
finestre, scroll bars e mouse, mentre 
tutte le altre funzioni del Toolbox 
sono accessibili per mezzo delle i- 
struzioni CALL e USR. 

Di natura piuttosto didattica è di¬ 
sponibile il True Basic della Addi- 
son Wesley. Scritto da alcuni degli 
autori del Basic Originale, il linguag¬ 
gio, interpretato, è una revisione 
piuttosto sostanziale della sua forma 
iniziale. L'aggiunta di istruzioni 
strutturate e variabili locali e la ri¬ 
mozione dei numeri di linea lo fan¬ 
no sembrare un ibrido tra un Basic 
tradizionale e un Pascal interpretato. 

I professionali 

Workshop Pascal, che è stato il 
primo sistema di sviluppo per Ma¬ 
cintosh, opera in ambiente Wor¬ 
kshop su Lisa. Composto da editor, 
compilatore, code generator, assem¬ 
blatore, linker, resource compiler e 
da una serie di programmi di utilità, 

11 sistema permette la creazione di 
applicazioni autonome per Mac. Il 
linguaggio è un Pascal esteso con la 
possibilità di compilazioni separate, 
moduli, supporto diretto delle chia¬ 
mate al Toolbox. E' tuttora uno dei 
migliori sistemi di sviluppo per 
Mac, ma gira su Lisa che è ormai 
fuori produzione. A tale proposito 
Apple lo farà "migrare" in forma am¬ 
pliata e potenziata su Macintosh (o 
meglio ancora su Macintosh Plus), 
su cui sarà disponibile verso giugno 
86. Oltre alle ottime qualità del Pa¬ 
scal , offre il notevole vantaggio di 
essere il linguaggio nel quale è stato 
pensato e realizzato il Toolbox, e 
quindi permette un interfacciamento 
naturale con questo. 


* Programmi forniti gratuitamente da 
Apple a programmatori professionisti. 


Sono disponibili altri tre compila¬ 
tori Pascal su Mac: TML Pascal del¬ 
la TML Systems, On Stage Pascal 
della Step-Lively Software e il siste- 
maPascalMacAdvantage della Softe- 
ch. Entrambi i sistemi girano diretta- 
mente su Macintosh, compilano 
programmi scritti per il Workshop 
Pascal e genereranno applicazioni au¬ 
tonome. Il Pascal TML è particolar¬ 
mente apprezzato nel mondo dello 
sviluppo Macintosh per le sue doti 
di velocità e per il prezzo particolar¬ 
mente aggressivo. 

Il Pascal On Stage è più completo 
e curato come Utilities di sviluppo, 


documentazione e supporto, ed è ca¬ 
ratterizzato anche da un costo che ri¬ 
flette, sebbene in maniera molto con¬ 
tenuta, questo maggior investimento 
del produttore. 

Sempre sul fronte Pascal è dispo¬ 
nibile Mac Advantage Pascal della 
Softech Microsystems, da tempo li- 
cenziatariadelladistribuzionedeipro- 
dotti UCSD. E' un compilatore che 
accetta Pascal secondo lo standard U- 
CSD e quindi permette il facile tra- 
sportodiapplicazioniprecedentemen- 
te scritte in questo linguaggio per al¬ 
tri sistemi. Il problema principale di 
questo sistema è proprio lo standard 


Programma 

Rivenditore 

Prezzo 

Distributore 

Livello 

Modula-2 

Non disponibile in Italia 


Volition 

★ ★ ★ ★ 

Mprolog 

Teclogic 

Via Citolo da Perugia 68 
Padova T.049/651497 

L. 500.000 

★ ★ ★ ★ 

Teologie 

Neon 

Non disponibile in Italia 

$ 150 

Kriya Systems 

★ ★ ★ ★ 

Omnis 3 

PC Personal Computer 

Via Chiapponi 42 Piacenza 
T.0523/20626 

L. 1.500.000 

★ 

Blyth Computers 

On Stage 

Non disponibile in Italia 

$ 399 

Step-Lively Software 

★ ★ ★ ★ 

PC Mac BASIC 

Non disponibile in Italia 


Pterodactyl 

★ ★ ★ 

Prolog II 

Non disponibile in Italia 

$ 495 

Avenue Software 

★ ★ ★ ★ 

SmallTalk * 

Apple Computer Spa 

Pal.Q8 Milanofiori Rozzano 

T. 02/8242156 

★ ★ ★ ★ 

Apple 

Softworks C 

Bits & Bytes 

Via S.Fran. d’Assisi 8 Milano 
T.02/8376207 

L. 1.127.000 

★ ★ ★ * 

Softworks 

TML Pascal 

Non disponibile in Italia 


TML Systems 

★ ★ ★ ★ 

True Basic 

Non disponibile in Italia 

$ 149 

Addison Wesley 

★ ★ ★ 

Per ottenere informazioni sui programmi non disponibili in Italia, rivolgersi a 
Software Shop, tei. 02-7387444. 
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: PROGRAMMI SU 

Anche su un programma si può programmare; I classici èl 
sempi sono le applicazioni create con uno.spròadsheét.r ; 

Ci.so no però dei pacchetti di software, che pérméttono il 
B avera e propria progràmmazìone.grazle. a particolàri ìstru- 
2ÌOni. • • . . • .V:':-:-^ A* 

B it caso dì Orànis 3, un Database' r stazionàie che preve¬ 
de una serie dì istruzioni cosiddette Macro, comandi cioè 
che permettono dì lavorare come si lavora con uh Itngiiag- 
gio di programmazione. 

v Chi si.è accorto delle notevoli capacità di Orrinfe 3, e che lo 
sostiene distribuendolo, a breve tempo anche nelta;;versìo- 

ne italiana; è la PC Personal Computer dì Piacènza; i 

■■ - 

commessa, personalizzate, .ma in cantière ci sono già; le mcp 
ditilohe per trasformare questi pacchetti in soluzioni atarida^ 
d, orientate a soddisfare esigenze comuni, 

Per uTterìarl informazioni e possibile rivòlgersi direttamene 
te alia PC Personal Computer, via Chiapponi 42, Piacenza^ 
Telefono 0523-20626. :• 


UCSD che non prevede l'uso del 
Toolbox, per cui l'accesso alle fun¬ 
zioni e alle variabili del Toolbox av¬ 
viene in maniera piuttosto contorta 
e macchinosa. In molti casi potreb¬ 
be essere più opportuno fare lo sfor¬ 
zo di rivedere il programma e utiliz¬ 
zare un Pascal più vicino al modo di 
"pensare" del Toolbox. 

In arrivo è Quicksilver, un altro 
compilatore Pascal, erede del MacPa- 
scal Apple, ma compilato e, pare, 
molto veloce. Lo presenta Think Te¬ 
chnologies, creatrice appunto delMa- 
cPascal, con cui sarà in buona parte 
compatibile. 

Anche Borland, famoso per il suo 
TurboPascal su MSDOS introdurrà 
tra brevissimo una versione di Tur¬ 
boPascal su Macintosh. 

Per chi ha esigenze di controllo 
reai time, è disponibile una versione 
speciale di Pascal, appositamente 
concepito per applicazioni del gene¬ 
re, denominata Rascal, e prodotta da 
Metaresearch. 

Come è noto, Nicklaus Wirth, do¬ 
po aver creato il linguaggio Pascal, 
negli anni scorsi si è dedicato a una 
nuova creatura: il Modula. Tale lin¬ 
guaggio fu concepito inizialmente 
per l'esecuzione su un hardware appo¬ 
sitamente realizzato: il Lilith. Que¬ 
sta macchina è dotata di caratteristi¬ 
che avanzate quanto a interfaccia u- 
tente, buona parte delle quali sono 
pure presenti su Macintosh e su nes¬ 
sun altro personal computer. Per que¬ 
sto motivo, due aziende hanno visto 
l’opportunità di realizzare compilato¬ 
ri Modula anche per Macintosh: si 
tratta di MacModula-2 della Modula 
Corporation e di Modula-2 della Vo- 
lition. Di Modula-2 esiste pure una 
versione di dominio pubblico creata 
dal Politecnico di Zurigo. 

Mac Forth Livelli 2 e 3 sono l’e¬ 
stensione del sistema precedentemen¬ 
te descritto, permettono l'uso delle 
routine del Toolbox e l’assemblag¬ 
gio in-line e quindi possono essere 
presi in considerazione per lo svilup¬ 
po di applicazioni complesse. Il lin¬ 
guaggio, pur avendo una struttura 
molto particolare, si presta ad appli¬ 
cazioni in cui è richiesta la possibili¬ 
tà di ottimizzazioni spinte e un con¬ 
tatto molto stretto con l’hardware, 
senza l'uso di Assembler o di compi¬ 
latori C. Esistono anche altre due 
versioni di Forth su Macintosh. Ma- 
sterForth della MicroMotion mette a 
disposizione un interessante pacchet¬ 
to Floating Point e un rilocatore. 


Di recentissima introduzione è Mach 
1, un Forth-83 a 32 bit dotato di un 
proprio ambiente multitasking. 

Sono disponibili per Mac molti 
compilatori C tra cui i più interes¬ 
santi sono sicuramente: Aztec C del¬ 
la Manx, Mac C della Consulair 
Corporation e Megamax C della Me¬ 
gamax Ine. Il linguaggio C permette 
di generare codice compatto ed effi¬ 
ciente ed è destinato al programmato- 
re esperto che sa cosa deve fare, in 
quanto permette di accedere mediante 
primitive di alto livello anche ai det¬ 
tagli implementativi di basso livel¬ 
lo ma senza particolari controlli. Per 
questa ragione il linguaggio viene 
considerato molto potente, ma richie¬ 
de molta attenzione ai dettagli da par¬ 
te del programmatore che lo utilizza. 
E’ un liguaggio ottimo per realizza¬ 
zioni professionali. 

Aztec-C è un sistema comprenden¬ 
te un compilatore, un macro assem¬ 
blatore, un linker, un debugger, un e- 
ditor simile a vi (editor molto diffu¬ 
so sui sistemi Unix), e una serie di 
utility come make, diff e grep. Il 
compilatore è implementato secon¬ 
do la definizione del linguaggio di 
Keminghan e Ritchie; le caratteristi¬ 
che salienti sono: supporto del floa- 
ting-point, assemblaggio in-line, in¬ 
terfaccia diretta al Toolbox con con¬ 
versione automatica alle convenzio¬ 
ni di chiamata del Pascal. L'ambien¬ 
te di lavoro è decisamente Unix-like, 
nel senso che il finder (con la sua in¬ 
terfaccia iconica e l’uso del mouse) 
viene sostituito da uno shell simile 


a quello di Unix con cui si interagi¬ 
sce digitando i comandi; questo gene¬ 
re di interfaccia è meno gradevole 
ma spesso più versatile di quello 
Mac per un programmatore. Chi 
non gradisce questo tipo di ambiente 
può tuttavia utilizzare il sistema an¬ 
che direttamente dal finder. 

Mac C della Consulair è stato il 
primo C disponibile per Macintosh. 
Scritto dallo stesso autore dell’ 
MDS Apple, ha prestazioni pratica- 
mente identiche al C Manx, ma un 
ambiente di sviluppo di tipo più tra¬ 
dizionale. Il compilatore Mac C ge¬ 
nera codice assembler e utilizza l'edi- 
tor, l'assembler e il linker del siste¬ 
ma di sviluppo Apple. 

Megamax-C è un sistema di svi¬ 
luppo con compilatore e linker "in¬ 
telligente" (include nell’oggetto solo 
la parte di libreria realmente utilizza¬ 
ta). Pur avendo prestazioni simili ai 
due precedenti, ha un prezzo sostan¬ 
zialmente più contenuto. Una sua li¬ 
mitazione è il fatto di non generare 
codice assembler, bensì direttamente 
linguaggio macchina 68000. 

Tra gli altri C (DeSmet C, So- 
ftworks C, Lattice C, Hippo C) vale 
la pena di indicare il carattere parti¬ 
colarmente didattico di Hippo C. 

Nell'ambito di un gruppo così va¬ 
sto di compilatori C per Macintosh, 
ci vuole un bel coraggio per introdur¬ 
ne sul mercato un’ulteriore versione. 
Think Technologies è convinta però 
di avere le carte in regola per farlo, e 
ha annunciato il suo compilatore C 
denominato LightSpeed, che promet- 
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un telefono anche al tuo computer 



Personal computer CX-21 

(Chiamante) 


Centrale telefonica 


CX-21 Personal computer 
(Chiamato) 


EPSON CX-21 

Accoppiatore acustico 


L’accoppiatore acustico CX-21 del¬ 
la Epson è uno strumento conveniente e 
affidabile dalle grandi prestazioni che 
dà la nuova dimensione delle telecomu¬ 
nicazioni al vostro computer. 

Il CX-21 funziona a batterie ricarica¬ 
bili ed è particolarmente adatto ai per¬ 
sonal computer portatili, come il PX-8 e 
HX-20, per esempio. 

Per' accedere alle informazioni di 
una banca dati, o più semplicemente 
per comunicare con un altro computer 
basta inserire la cornetta e comporre il 
numero telefonico corrispondente. 

Leggero, compatto, elegante ed af¬ 
fidabile il CX-21 è progettato per adat¬ 
tarsi a tutti gli apparecchi telefonici e 
consentire lo scambio rapido e sicuro di 
programmi e dati. 


Caratteristiche 

- Realizzato con speciali circuiti inte¬ 
grati CMOS 

- Funzionamento a batterie NiCd ricari¬ 
cabili 

- Funzionamento full-duplex o half-du- 
plex 

- Velocità di trasmissione fino a 300 bit- 
sec. 

- Interfaccia RS 232C 

- Dimensioni 297x95x42 mm 

- Peso 700 gr. 



la voce del tuo personal 
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te caratteristiche superiori alla con¬ 
correnza. 

Altri linguaggi sicuramente validi 
per lo sviluppo di applicazioni pro¬ 
fessionali sono il Fortran e il 
Cobol. 

Delle due versioni di Fortran dispo¬ 
nibili su Macintosh, prodotte da Mi¬ 
crosoft e Softech, vale la pena di 
prendere in seria considerazione per 
la creazione di applicazioni professio¬ 
nali solo la prima, sia per la mag¬ 
gior integrazione nell'ambiente Ma¬ 
cintosh che per la garanzia stessa da¬ 
ta dell'azienda che lo distribuisce. Il 
Fortran, "antichissimo" linguaggio, 
è stato ricreato su Macintosh in ma¬ 
niera esemplare, generando risultati 
veramente notevoli. Le funzioni spe¬ 
cifiche dell’ambiente Macintosh so¬ 
no tutte accessibili in maniera mol¬ 
to semplice, mentre le prestazioni 
sono semplicemente sbalorditive. 
Alcune prove gli attribuiscono una 
velocità pari a metà di quella di un 
minicomputer come il Prime. L'im- 
plementazione del linguaggio è tal¬ 
mente standard che è possibile passa¬ 
re programmi Fortran realizzati su al¬ 
tri computers con interventi quasi 
nulli sul sorgente. 

Anche il Cobol è disponibile su 
Macintosh. Si tratta di un matrimo¬ 
nio molto discutibile, in quanto le 
concezioni di procedure Cobol e ap¬ 
plicazioni Macintosh sono a opposti 
estremi. Ciò nonostante la specifica 
implementazione (della MicroFo- 
cus), ha sposato molto bene i due 
mondi, sia a livello di prestazioni 
che di interfaccia utente. E' un’occa¬ 
sione interessante per dare nuova vi¬ 
ta a programmi Cobol già realizzati 
su altre macchine, o un modo per av¬ 
vicinare a un mondo di programma¬ 
zione completamente diverso coloro 
(molti) che programmano solo in 
Cobol. 

Anche per gli amanti dell'APL è 
possibile programmare il Macinto¬ 
sh. La Portable Software mette a di¬ 
sposizione una versione molto com¬ 
pleta di APL, con estensioni specifi¬ 
che per Macintosh. 

A titolo poco più che di curiosità 
va citata la disponibilità di Cornai, 
BCPL, BI-2 e MAGICAL, che solo 
pochi conoscono. 

Un discorso a parte merita invece 
il linguaggio Neon della Kriya 
Systems e l'ambiente object oriented 
di MacApp sviluppato in Apple. 
Questi linguaggi e ambienti partico¬ 
lari permettono lo sviluppo di pro¬ 


grammi particolarmente flessibili e 
di facile modifica, ma necessitano di 
un approccio decisamente differente 
da quello tradizionale. 

Il Neon, in particolare, è un inte¬ 
ressante linguaggio a metà strada tra 
Forth e SmallTalk, concepito appo¬ 
sitamente per Macintosh. La sua 
struttura è molto evoluta e, se utiliz¬ 
zato appropriatamente, consente una 
rapida programmazione di applica¬ 
zioni stand-alone anche di una certa 
complessità. 

MacApp, sebbene ancora in forma 
non definitiva, è un ambiente di svi¬ 
luppo avanzato per la programmazio¬ 
ne object-oriented, in cui buona par¬ 
te delle parti di programma e gli og¬ 
getti tipicamente trattati sono prede¬ 
finiti e si tratta solo di "conforma¬ 
re" le strutture predefinite alle neces¬ 
sità del programma che si crea. E' 
previsto il rilascio di un C e di un 
Pascal appositamente concepiti per 
questo tipo di programmazione (Obje¬ 
ct-Oriented). Questo concetto di "og¬ 
getti" è specificamente ripreso dallo 
SmallTalk realizzato da Apple, an- 
ch'esso non ancora in forma definiti¬ 
va. MacApp e Smalltalk rappresenta¬ 
no due punte avanzate della ricerca 
software in corso alla Apple e sono 
entrambi disponibili a persone ed en¬ 
ti qualificati che desiderano contri¬ 
buire al test e allo sviluppo dei due 
prodotti. E' di particolare importanza 
lo Smalltalk, poiché si tratta dell'u¬ 
nica implementazione completa di 
questo linguaggio su personal com¬ 
puter. 

Molto interesse è destato dal Ma¬ 
cintosh nel campo deU’intelligenza 
artificiale. Seri progetti di ricerca lo 
utilizzano come strumento potente 
ma molto più accessibile delle Lisp- 
Machines dedicate. 

Oltre all'ExperLisp della Expertel- 
ligence, peraltro molto valido, è ora 
disponibile anche MacScheme, im¬ 
plementazione su Macintosh del nuo¬ 
vo dialetto Scheme, simile al Com¬ 
mon Lisp con continuations. Que¬ 
sto Lisp è dotato di un’interfaccia ti¬ 
po Smalltalk, con finestre, e vanta u- 
na velocità di esecuzione paragonabi¬ 
le alle versioni interpretate su Lisp 
Machines. Esiste anche una versione 
francese di Lisp su Macintosh, chia¬ 
mato Le Lisp. 

Sempre relativo all’intelligenza ar¬ 
tificiale, è la realizzazione della Te¬ 
ologie di Padova, che ha creato una 
versione di Prolog funzionante su 
Macintosh. Più recentemente altre 
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due società hanno portato Prolog sul 
Macintosh: Prolog II della Avenue 
Software e MacProlog della Pro- 
gramming Logic Systems. 

Anche diversi sistemi esperti sono 
stati realizzati per Macintosh. Scrit¬ 
to in ExperLisp è ExperOPS5, ver¬ 
sione del famoso OPS5 presente su 
altri sistemi. Interessante anche NE- 
XPERT, il primo strumento per la 
generazione di sistemi esperti scritto 
appositamente per Macintosh. Altri 
sistemi di generazione di sistemi e- 
sperti, di una certa importanza, so¬ 
no: Experfacts sempre prodotto da 
Expertelligence, MacKIT, e MacE- 
xpert della società francese Mind 
Soft. 

Infine per i programmatori che 
hanno necessità di programmare in 
assembler sono disponibili il Macin¬ 
tosh Development System (MDS) 
della Apple e MacASM della Main- 
Stay. Di recente introduzione è il si¬ 
stema McAssembly, tra l'altro com¬ 
patibile (tramite una utility fornita) 
con il formato .REL dell'MDS. 

Gli applicativi 
programmabili 

Oltre ai linguaggi propriamente 
detti, esistono applicazioni che con¬ 
sentono un'elevata "programmabili- 
tà", e che perciò permettono la realiz¬ 
zazione di vere e proprie "applicazio¬ 
ni" ad hoc. Tra questi in primo pia¬ 
no troviamo Omnis 3, sistema di ge¬ 
stione dati con cui è possibile creare 
maschere, reports ecc. fino ad avere 
vere e proprie applicazioni per speci¬ 
fici settori verticali (medici, avvoca¬ 
ti, magazzini, fatturazioni, condomi¬ 
ni ...). Il suo utilizzo è enormemen¬ 
te più facile di quello dei tipici lin¬ 
guaggi di programmazione. 

Anche Helix si presta a una pro¬ 
grammazione intuitiva e semplice 
nell'ambito della gestione files. 

All'estremo della programmazione 
ci sono poi i "macro" di Microsoft 
Excel, la cui potenza di soluzione di 
problemi applicativi non è assoluta- 
mente da sottovalutare. 

E’ stato infine annunciato un pro¬ 
dotto che si dichiara dBase III compa¬ 
tibile. Consente quindi il passaggio 
quasi diretto di sistemi realizzati su 
altre macchine, salvo ampiame la 
parte relativa all'interfaccia utente 
per sfruttare le superiori caratteristi¬ 
che Macintosh. 

Roger Stewart 
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Con questa parte conclusiva della serie di articoli sulla doppia 
alta risoluzione potete aggiungere al DHR Driver routine 
di spostamento verticale. Un breve programma in Applesoft dà 
una dimostrazione del loro impiego, e una tavola sinottica indica 
i punti di introduzione per l'intero DHR Driver, che può essere 
utilizzato con qualsiasi Ile, o Ile con scheda espansa a 80 colonne. 


E infine 

l’astronave vola! 


Nella serie di artìcoli sulla grafica 
a doppia Hi-Res sono state create 
routine che mettono le figure in ta¬ 
vole delle figure (con SCAN), le di¬ 
segnano (con DRAW) sullo scher¬ 
mo (dall’alto in basso o dal basso in 
alto) e le spostano (con SHIFT) bit 
per bit, a sinistra o a destra attraver¬ 
so lo schermo. Abbiamo già visto 
come si possano muovere le figure 
in su o in giù usando la routine 
DRAW; adesso vedremo come spo¬ 
stare le figure verticalmente sullo 
schermo della doppia Hi-Res. Ag¬ 
giungeremo al DHR driver due ulti¬ 
me routine: SHFTDN (CALL 
37229) sposta una figura in giù di 
un punto di schermo, e SHFTUP 
(CALL 37301) sposta una figura in 
su di un punto di schermo. 


Come introdurle 

Per aggiungere queste routine al 
DHR driver caricate prima il driver 
in memoria battendo: 


BLOAD DHR.DRIVER $91FE 


Adesso accedete al Monitor facen¬ 
do CALL-151, e digitate il codice e- 
sadecimale visibile nel listato 1 . 
Quando è tutto in memoria salvate 
su dischetto il driver completato bat¬ 
tendo: 


BSAVE DHR.DRIVER $916D,A$ 
916D,L$493 


Nel caso abbiate saltato un nume¬ 
ro della rivista, potete trovare l'inte¬ 
ro DHR.DRIVER nel listato 2. 


Se intendete utilizzare un assembler 
per introdurre le routine, potete usa¬ 
re la parte in codice sorgente del li¬ 
stato 1 , che contiene tutta la docu¬ 
mentazione necessaria che descrive il 


funzionamento delle routine. Chi 
non possiede un assembler può intro¬ 
durre in memoria il listato 1 co¬ 
piando le prime 19 righe del lista¬ 
to 2, e può trovare un aiuto nell'in- 


Listatol 


SOURCE FILE: 
0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 

0000 : 


SHIFTU/D 
1 
2 

3 

4 

5 

6 
7 * 

NEXT OBJECT FILE NAME IS SHIFTU/D.OBJO 


SHIFTU/D 

BY ROBERT DEVINE 

COPYRIGHT 1986 BY APPLICANDO & 

MICROSPARC, INC. 

TOOL KIT ASSEMBLER 


DOS 3.3 


Apple Ile 


Apple Ile 


916D: 



8 

ORG 

S916D 


916D: 



9 * 




0008: 



10 HLDR 

EQU 

$08 


00FC: 



11 VT 

EQU 

$FC 


00FD: 



12 VB 

EQU 

$FD 


00FE: 



13 HR 

EQU 

$FE 


00FF: 



14 HL 

EQU 

$FF 


0026: 



15 HBASL 

EQU 

$26 


0027: 



16 HBASH 

EQU 

$27 


0006: 



17 YO 

EQU 

$06 


9464: 



18 YADDR 

EQU 

$9464 


F504 : 



19 INCRY 

EQU 

$F504 


F4D5 : 



20 DECRY 

EQU 

$F4D5 


C054 : 



21 PAGE1 

EQU 

$C054 


C055 : 



22 PAGE1X 

EQU 

$C055 


916D: 



23 * 




916D:A5 

FD 


24 SHFTDN 

LDA 

VB 

CALL 37229 TO ENTER 

916F:C9 

BD 


25 

CMP 

#189 

IS VB >=189 ? (158 FOR HGR) 

9171 :B0 

41 


26 

BCS 

RTN1 

YES-WE'LL GO OFF SCREEN-EXIT 

9173:85 

06 


27 

STA 

YO 

STORE IN $6 FOR USE BY YADDR 

9175:20 

64 

94 

28 LI 

JSR 

YADDR 

GET BYTE ZERO ADDRESS 

9178 :A4 

FE 


29 

LDY 

HR 

SET Y-REG TO RIGHTMOST ADDRESS 

917A:8D 

55 

CO 

30 L2 

STA 

PAGEIX 

READ AUXILIARY MEMORY 

917D:B1 

26 


31 

LDA 

(HBASL),Y 

GET SHAPE BYTE FROM SCREEN 

917F: 85 

08 


32 

STA 

HLDR 

STORE IN HOLDER 

9181:8D 

54 

CO 

33 

STA 

PAGE1 

READ/DRAW MAIN MEMORY 

9184 :B1 

26 


34 

LDA 

(HBASL),Y 

GET SHAPE BYTE FROM SCREEN 

918 6 :AA 



35 

TAX 


STORE IN X-REGISTER 

9187:20 

04 

F5 

36 

JSR 

INCRY 

POINT TO NEXT LOWER ADDRESS 

918A:8A 



37 

TXA 


RETRIEVE SCREEN BYTE 

918B:91 

26 


38 

STA 

(HBASL),Y 

LOAD BYTE TO SCREEN 

918D:8D 

55 

CO 

39 

STA 

PAGEIX 

DRAW AUXILIARY MEMORY 

9190 :A5 

08 


40 

LDA 

HLDR 

RETRIEVE SCREEN BYTE 

9192:91 

26 


41 

STA 

(HBASL) , Y 

LOAD BYTE ON SCREEN 

9194 :8D 

54 

CO 

42 

STA 

PAGE1 

EXECUTE ROM INSTRUCTIONS 

9197:20 

D5 

F 4 

43 

JSR 

DECRY 

RETURN TO ORIGINAL ADDRESS 

919A: 8 8 



44 

DEY 


POINT TO NEXT ADDRESS <- 

919B:18 



45 

CLC 



919C:C0 

FF 


46 

CPY 

# $FF ; 

: HAS Y-REGISTER PASSED 0? 
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SHFTUP 


shape 
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1 
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Figura 1. Schema di funzionamento delle routine per lo spostamento verticale. 


traduzione del codice in linguaggio 
macchina nella rubrica "Per chi co¬ 
mincia" in questo numero della rivi¬ 
sta. 


Come funzionano 

Come nel caso delle routine di spo¬ 
stamento orizzontale, la routine 
DRAW è utilizzata solo per mettere 
inizialmente la figura sullo scher¬ 
mo. Di qui in poi si può semplice- 
mente spostare la figura in qualsiasi 
punto si voglia. Dato che né le routi¬ 
ne di spostamento orizzontale né 
quelle di spostamento verticale usa¬ 
no tavole delle figure per fare la loro 
animazione, si possono spostare par¬ 
ti di figure, o perfino grafica di sfon¬ 
do per cui non esistano tavole delle 
figure. Sia SHFTDN sia SHFTUP 
sono routine ad autocancellazione. 
Nelle routine di spostamento oriz¬ 
zontale veniva messa una colonna 
supplementare di byte di spostamen- 


92 9E:F0 

04 


47 

BEQ 

NXTLN1 

9I\0:C4 

FF 


48 

CPY 

HL 

91A2 : B0 

D6 


49 

BCS 

L2 

91A4 :C6 

06 


50 NXTLN1 

DEC 

YO 

9' A6:A5 

06 


51 

LDA 

YO 

91 A8:C9 

FF 


52 

CMP 

#$FF 

91AA:F0 

04 


53 

BEQ 

J1 

91AC:C5 

FC 


54 

CMP 

VT 

91AE : B0 

C5 


55 

BCS 

LI 

91B0:E6 

FC 


5 6 J1 

INC 

VT 

91B2 :E6 

FD 


57 

INC 

VB 

91B4 :60 



58 RTN1 

RTS 


91B5 :A5 

FC 


59 SHFTUP 

LDA 

VT 

91B7 :C9 

01 


60 

CMP 

#1 

91B9: 90 

42 


61 

BCC 

RTN2 

91BB: E6 

FD 


62 

INC 

VB 

91 BD : 8 5 

06 


63 

STA 

YO 

91BF :8D 

55 

CO 

64 

STA 

PAGE1X 

91C2:20 

64 

94 

65 LP1 

JSR 

YADDR 

91C5 :A4 

FE 


66 

LDY 

HR 

91C7 :B1 

26 


67 LP2 

LDA 

(HBASL),Y 

91C9 :85 

08 


68 

STA 

HLDR 

91CB: 8D 

54 

CO 

69 

STA 

PAGE1 

91CE :B1 

26 


70 

LDA 

(HBASL),Y 

91 DO :AA 



71 

TAX 


91D1:20 

D5 

F 4 

72 

JSR 

DECRY 

91D4 :8A 



73 

TXA 


91D5:91 

26 


74 

STA 

(HBASL),Y 

91D7 :8D 

55 

CO 

75 

STA 

PAGE1X 

91DA: A5 

08 


76 

LDA 

HLDR 

91DC: 91 

26 


77 

STA 

(HBASL) , Y 

91DE: 20 

04 

F5 

78 

JSR 

INCRY 

91E1 :88 



79 

DEY 


91E2: 18 



80 

CLC 


91 E3:C0 

FF 


81 

CPY 

#$FF 

91E5: F0 

04 


82 

BEQ 

NXTLN2 

91E7:C4 

FF 


83 

CPY 

HL 

91E9 :B0 

DC 


84 

BCS 

LP2 

91EB: E6 

06 


85 NXTLN2 

INC 

YO 

91 ED : A5 

06 


86 

LDA 

YO 

91EF:C9 

BE 


87 

CMP 

#190 

91F1:F0 

04 


88 

BEQ 

J2 

91F3:C5 

FD 


89 

CMP 

VB 

91F5: 90 

CB 


90 

BCC 

LP1 

91F7:C6 

FD 


91 J2 

DEC 

VB 

91F9:C6 

FD 


92 

DEC 

VB 

91FB:C6 

FC 


93 

DEC 

VT 

91FD:60 



94 RTN2 

RTS 



SUCCESSFUL ASSEMBLY: NO ERRORS 


to davanti alla figura per gestire il 
movimento e la cancellazione. Nelle 
routine di spostamento verticale è 
stato necessario aggiungere una riga 
supplementare di byte di cancellazio¬ 
ne dietro la figura. Questa riga in 
più di byte tallona la figura ed elimi¬ 
na qualsiasi eventuale pasticcio che 
essa cerchi di lasciarsi dietro. 


YES-GOTO NEXT LINE 
HAVE WE REACHED HL? 

NO-GOTO NEXT ADDRESS 
MOVE UP TO NEXT LINE 
GET NEXT Y-COORDINATE 
HAVE WE DONE 0? 

YES-WE'RE DONE 
HAVE WE REACHED VT? 

NO-CONTINUE 
MOVE VT DOWN 1 
MOVE VB DOWN 1 
DONE-EXIT ROUTINE 
CALL 37301 TO ENTER 
IS VT<1? 

YES-WE* LL GO OFF SCREEN-EXIT 
MOVE VB DOWN 1 LINE 
STORE VT IN $6 FOR USE BY YADDR 
READ AUXILIARY MEMORY 
GET ADDRESS OF BYTE 0 
SET Y-REG TO RIGHTMOST ADDRESS 
GET SHAPE BYTE FROM SCREEN 
STORE IN HOLDER 
READ/DRAW MAIN MEMORY 
GET SHAPE BYTE FROM SCREEN 
STORE IN X-REGISTER 
POINT TO NEXT HIGHER ADDRESS 
RETRIEVE SCREEN BYTE 
LOAD BYTE ON SCREEN 
DRAW AUXILIARY MEMORY 
RETRIEVE SCREEN BYTE 
LOAD BYTE ON SCREEN 
RETURN TO ORIGINAL ADDRESS 
POINT TO NEXT ADDRESS <- 

HAS Y-REG PASSED 0? 

YES-GOTO NEXT LINE 
HAVE WE REACHED HL? 

NO-GOTO NEXT ADDRESS 

MOVE DOWN TO NEXT LINE 

GET NEW Y-COORDINATE 

HAVE WE DONE 190? (159 FOR HGR) 

YES-WE*RE DONE 

HAVE WE REACHED VB? 

NO-CONTINUE 
RESTORE ORIGINAL VB 
MOVE VB UP 1 LINE 
MOVE VT UP 1 LINE 
DONE-EXIT ROUTINE 


Osservate innanzitutto la figura 
1, per vedere come funzionano le 
routine di spostamento verticale. La 
prima cosa che si dovrebbe notare è 
che, a differenza di SHIFTR e SHI- 
FTL, che spostano un bit per mos¬ 
sa, le routine SHFTDN e SHFTUP 
spostano un byte per mossa. 
SHFTDN parte da VB/HR (come 
DRAW) e tira in giù la figura, men¬ 
tre SHFTUP parte da VT/HR (come 
DRAWDN) e tira la figura in su. 

A ogni indirizzo ci sono due byte 
di schermo con cui fare i conti, uno 
a PAGE1 e l'altro a PAGEIX. Anda¬ 
te prima a PAGE IX, prelevate il 
byte di figura dallo schermo e mette¬ 
telo in $08 per la conservazione 
temporanea. Poi andate a PAGE1, 
prelevate quel byte di figura dallo 
schermo e immagazzinatelo nel regi¬ 
stro X. Quindi usate le routine IN- 
CRY e DECRY dell'Applesoft per 
trovare l'indirizzo di schermo diretta- 
mente sopra o sotto (a seconda che 
siate in SHFTUP o SHFTDN). 

Recuperate adesso il byte di figura 
dal registro X e mettetelo nel nuovo 
indirizzo a PAGE1. Poi tornate a 
PAGEIX, recuperate quel byte di fi¬ 
gura da $08 e mettetelo nel nuovo 
indirizzo a PAGEIX. Infine usate 
nuovamente INCRY o DECRY per 
tornare all’indirizzo originale. 

Usando questo procedimento si 
passa per tutti gli indirizzi della figu¬ 
ra e si sposta ogni byte in su o in 
giù di una posizione. Dato che l'ulti¬ 
ma linea di indirizzi da elaborare in 
ciascuna figura contiene le stesse 
configurazioni di bit dello sfondo 
(normalmente, non necessariamente, 
tutti zeri) si cancella automaticamen¬ 
te l'ultima linea di byte di figura. 

Ora che avete aggiunto al driver le 
nuove routine, provatele e osservate 
come funzionano. Per prima cosa in- 
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Tavola 1 

Mappa del DHR Driver 

Routine 

Indirizzo esa 

CALL 

Funzione 

YTABLE 

$9480 


Indirizzi schermo Hi-Res 

SETUP 

$946F 

37999 

Inizializza puntatori YTABLE 

YADDR 

$9464 

37988 

Legge indirizzo byte 0 

KILL 

$944E 

37966 

Esce da doppia Hi-Res 

INIT 

$9441 

37953 

Accede a doppia Hi-Res 

HGR 

$9428 

37928 

Sposta una pagina grafica DHR 

HOME 

$941C 

37916 

Sposta una pagina di testo 

SCAN 

$93DA 

37850 

Crea una figura a blocco 

DRAW 

$9394 

37780 

Disegna una figura dal basso all'alto 

DRAWDN 

$934C 

37708 

Disegna una figura dall'alto al basso 

REVDIR 

$92F8 

37624 

Disegna una figura rovesciata 

YINCRD 

$92E5 

37605 

Aggiunge YINCR a VT e VB 

YINCRU 

$92D4 

37588 

Sottrae YINCR da VTe VB 

GODOWN 

$92C9 

37577 

INCrementa VT e VB 

GOUP 

$92C0 

37568 

DECrementa VT e VB 

MOVELF 

$92B7 

37559 

DECrementaHReHL 

MOVERT 

$92AC 

37548 

INCrementa HR e HL 

EOROFF 

$928D 

37517 

Disabilita la funzione EOR 

EORON 

$9283 

37507 

Abilita la funzione EOR 

SHIFTR 

$9244 

37444 

Sposta a destra di un punto 

SHIFTL 

$91FE 

37374 

Sposta a sinistra di un punto 

SHIFTUP 

$91B5 

37301 

Sposta in su di un punto 

SHIFTDN 

$916D 

37229 

Sposta in giù di un punto 


sente il programma in Applesoft vi¬ 
sibile nel listato 3 e salvatelo su 
dischetto con il comando: 


SAVE VERTICAL.SfflFT.DEMO 


Sullo stesso dischetto dovrete ave¬ 
re una copia di DHR.DRIVER 
$916D e SHAPE# 144, che sono sta¬ 
te create nel n. 20 di Applicando. Si 
tratta della figura di astronave che ha 
una riga supplementare di byte di 
cancellazione sia sopra sia sotto i 
byte della figura vera e propria. Se 


non avete sul dischetto SHA- 
PE#144, usate il Monitor per intro¬ 
durre il codice visibile nel listato 
4 , e salvatelo con il comando: 


BSAVE SHAPE# 144,A$9000,L$54 


Eseguendo il programma vedrete 
la figura che si sposta con moto uni¬ 
forme in su e in giù sullo schermo, 
spostandosi inoltre verso destra di 
14 punti ogni volta che arriva alla 
sommità o alla base dello schermo. 

Le linee 80-130 dovrebbero esser- 


Listato 2 


*916D.95FF 

916D- A5 FD 
9170- BD B0 

C9 

41 

85 

06 

20 

64 

94 

9178- A4 

FE 

6D 

55 

CO 

B1 

26 

85 

9180- 08 

8D 

54 

CO 

B1 

26 

AA 

20 

9188- 04 

F5 

8 A 

91 

26 

8D 

55 

CO 

9190- A5 

08 

91 

26 

8D 

54 

CO 

20 

9198- D5 

F4 

88 

18 

CO 

FF 

F0 

04 

91A0- C4 

FF 

B0 

D6 

C6 

06 

A5 

06 

91A8- C9 

FF 

F0 

04 

C5 

FC 

B0 

C5 

91B0- E6 

FC 

E6 

FD 

60 

A5 

FC 

C9 

91B8- 01 

90 

42 

E6 

FD 

85 

06 

8D 

91C0- 55 

CO 

20 

64 

94 

A4 

FE 

B1 

91C8- 26 

85 

08 

8D 

54 

CO 

B1 

26 

91D0- AA 

20 

D5 

F 4 

8A 

91 

26 

8D 

91D8- 55 

CO 

A5 

08 

91 

26 

20 

04 

91E0- F5 

88 

18 

CO 

FF 

F0 

04 

C4 

91E8- FF 

B0 

DC 

E6 

06 

A5 

06 

C9 

91F0- BE 

F0 

04 

C5 

FD 

90 

CB 

C6 

91F8- FD 

C6 

FD 

C6 

FC 

60 

A5 

FD 

9200- 85 

06 

20 

64 

94 

A4 

FE 

A2 

9208- 00 

86 

0 8 

8D 

54 

CO 

B1 

26 

9210- A6 

08 

F0 

02 

09 

80 

18 

6A 

9218- 91 

26 

8D 

55 

CO 

B1 

26 

90 

9220- 02 

09 

80 

18 

6A 

91 

26 

A2 

9228- 00 

90 

01 

E8 

86 

08 

88 

CO 

9230- FF 

F0 

04 

C4 

FF 

B0 

D4 

C6 

9238- 06 

A5 

06 

C9 

FF 

F0 

04 

C5 

9240- FC 

B0 

BF 

60 

A5 

FD 

85 

06 

9248- 20 

64 

94 

A4 

FF 

A2 

00 

86 

9250- 08 

8D 

55 

CO 

18 

A5 

08 

F0 

9258- 01 

38 

B1 

26 

2A 

91 

26 

8D 

9260- 54 

CO 

2A 

B1 

26 

2A 

91 

26 

9268- 86 

08 

2A 

90 

02 

E6 

08 

C8 

9270- C4 

FE 

90 

DD 

F0 

DB 

C6 

06 

9278- A5 

06 

C9 

FF 

F0 

04 

C5 

FC 

9280- B0 

C6 

60 

A9 

51 

20 

92 

92 

9288- A9 

26 

4C 

9F 

92 

A9 

EA 

20 

9290- 9F 

92 

8D 

63 

93 

8D 

72 

93 

9298- 8D 

AB 

93 

8D 

BA 

93 

60 

8D 

92A0- 64 

93 

8D 

73 

93 

8D 

AC 

93 

92A8- 8D 

BB 

93 

60 

A5 

FE 

C9 

27 

92B0- B0 

04 

E6 

FE 

E6 

FF 

60 

A5 

92B8- FF 

F0 

04 

C6 

FE 

C6 

FF 

60 

92C0- A5 

FC 

F0 

04 

C6 

FC 

C6 

FD 

92C8- 60 

A5 

FD 

C 9 

BF 

B0 

04 

E6 


vi ormai ben note, in quanto tutto 
quanto fanno è caricare il DHR dri¬ 
ver e la figura, poi inizializzare la 
doppia Hi-Res e disegnare con 
DRAW la figura al suo punto di 
partenza. 

La linea 140 aggiunge un indiriz- 


Tavola 2. Poke speciali da usare con il Driver. 

POKE 251.SHNUM 

Imposta il byte alto dell’indirizzo della tavola delle figure 

POKE 37781,LO 

Imposta il byte basso dell'indirizzo della tavola delle figure (DRAW) 

POKE 37709.LO 

Imposta il byte basso dell'indirizzo della tavola delle figure (DRAWDN; 

POKE 37624,LO 

Imposta il byte basso dell’indirizzo della tavola delle figure (REVDIR) 

POKE 252,VY 

Imposta la coordinata Y più alta della figura 

POKE 253,VB 

Imposta la coordinata Y più bassa della figura 

POKE 254,HR 

Imposta offset dell'Indirizzo più a destra 

POKE 255,HL 

Imposta offset dell’indirizzo più a sinistra 

POKE 6,Y 

Imposta la coordinata Y per YADDR 

POKE 37948,24 

Imposta HGR e HOME per trasferire PAGE1X a PAGE1 

POKE 37948,56 

Imposta HGR e HOME per trasferire PAGE1 a PAGE1X 

POKE 227,YINCR 

Imposta il valore appropriato per l’uso da parte di YINCRU e YINCRD 
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Listato 4 


92D0- FC 

E6 

FD 

60 

A5 

FC 

38 

E5 

9468- 85 

26 

B1 

EE 

85 

27 

60 

A9 

92D8- E3 

30 

09 

85 

FC 

A5 

FD 

38 

9470- 80 

85 

CE 

A9 

94 

85 

CF 

A9 

92E0- E5 

E3 

85 

FD 

60 
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Listato 3 


10 REM VERTICAL.SHIFT.DEMO 
30 REM DI ROBERT DEVINE 
40 REM COPYRIGHT (C) 1986 
50 REM BY APPLICANDO & 

60 REM MICROSPARC, INC 
70 REM - 

80 PRINT CHR$ (4) M BLOAD DHR.DRIVER $916D": CALL 37999: 

9 

90 PRINT CHR$ (4) "BLOAD SHAPE#144" 

100 CALL 37953: REM INIZIALIZZA 

110 HGR : CALL 37928: REM PULISCE LO SCHERMO DHR 
120 POKE 49153,0: POKE 49234,0: REM 80STORE/TUTTO SCHERMO 
130 POKE 251,144: POKE 252,0: POKE 253,13: POKE 254,2: POKE 255,0: 

CALL 37780: REM DISEGNA LA FIGURA SULLO SCHERMO 
140 POKE 254,3: REM AGGIUNGE UN INDIRIZZO SULLA DESTRA 
150 FOR VT = 0 TO 179: CALL 37229: NEXT VT: REM SPOSTA LA FIGURA 
IN GIU' 

160 GOSUB 210 

170 FOR VT = 179 TO 0 STEP - 1: CALL 37301: NEXT VT: REM SPOSTA 
LA FIGURA IN SU 
180 GOSUB 210 

190 IF PEEK (254) = 39 THEN POKE 49152,0: GOTO 110 
200 GOTO 150 

210 FOR SHFT = 1 TO 14: CALL 37444: NEXT SHFT: CALL 37548: RETURN : 
REM SPOSTA A DESTRA DI 14 PUNTI 


DOS 3.3 
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zo supplementare alla destra della fi¬ 
gura per l'impiego come bytes di 
spostamento quando la figura si 
muove verso destra alla sommità e 
alla base dello schermo. Volendo si 
potrebbe installare semplicemente 
l'indirizzo supplementare di sposta¬ 
mento immediatamente prima di o- 
gni movimento verso destra e poi to¬ 
glierlo di nuovo per evitare a 
SHFTDN e SHFTUP la necessità di 
elaborare byte supplementari. 

La linea 150 sposta la figura dalla 
sommità alla base dello schermo u- 
sando CALL 37229. Notate che non 
occorre preoccuparsi di cambiare i va¬ 
lori di VT e VB perché la routine 
SHFTDN incrementa automatica- 
mente questi valori in preparazione 
della successiva mossa verso il 
basso. Le linee 160 e 180 usano la 
subroutine a linea 210 per spostare 
la figura a destra di 14 punti alla 
sommità o alla base dello schermo. 
La linea 170 riporta la figura dalla 
base alla sommità dello schermo, e 
anche questa volta SHFTUP si occu¬ 
pa di impostare VT e VB per la mos¬ 
sa successiva. 

I valori 0-179 e 179-0 utilizzati 
nei loop FOR-NEXT sono semplice- 
mente un modo di indicare i vari va¬ 
lori che saranno associati a VT. 

Con 1'aggiunta delle routine 
SHFTDN e SHFTUP il DHR driver 
è completo (vedete in tavola 1 una 
mappa di agevole consultazione del 
Driver). L'intero driver impiega sol¬ 
tanto 1.171 byte di memoria, e quin¬ 
di con un investimento piuttosto esi¬ 
guo di spazio disponete adesso di un 
completo insieme di routine grafiche 
per l'animazione sullo schermo a 
doppia alta risoluzione. 


^Questo programma è disponibile^ 

su dischetto. L'elenco, i prezzi 
eie modalità d'ordine di questo e 
degli altri dischetti disponibili sono 
riportati nella rubrica Disk Service. 




















GRAFICA 




Tutti i grafici per Macintosh: con questa utility dawero potente inizia 
la pubblicazione dei listati in Basic per Mac. E' un programma in MS 
Basic, onnisciente quanto a geometrie, con il quale è facile creare 
grafici lineari, a barre e a torta. Consente, con un investimento molto 
contenuto, prestazioni da software di prim'ordine: creare grafici da 
esportare poi in ambiente MacWrite o MBasic, per esempio, significa 
altissima professionalità per relazioni e documenti. 


Due geometrie 
per mille grafici 


Esistono per il Macintosh diversi 
package di database e di analisi finan¬ 
ziaria che producono eleganti grafici 
e diagrammi di vario tipo. MacGra- 
ph non può fare tutto quello che fan¬ 
no i più costosi programmi in com¬ 
mercio: con una modestia forse ec¬ 
cessiva si potrebbe definirlo come 
un'utility che fornisce molta della lo¬ 
ro potenza per una frazione del loro 
prezzo. 

MacGraph permette di introdurre 
dati numerici con un Data Editor fa¬ 
cile da usare, che supporta tutte le 
normali funzioni di editing del Ma¬ 
cintosh. I dati possono essere salvati 
in file su dischetto o ricaricati dal di¬ 
sco, e MacGraph può persino legge¬ 
re dati da normali file di testo nel for¬ 
mato d’input del Microsoft Basic. 
Quando disponete dei vostri dati po¬ 
tete creare quattro diversi grafici: una 
linea numerica, un grafico a barre, 
un grafico a torta con percentuali e 
un grafico a torta con i valori effet¬ 
tivi. 

La funzione più importante è la 
possibilità di salvare diagrammi di 
MacGraph sul clipboard per trasferir¬ 
li in qualsiasi altra applicazione, co¬ 
me MacWrite o MacPaint. Potete in¬ 
corporare i vostri grafici in prospetti 
battuti su un word processor o usare 
MacPaint per aggiungere etichette 
più elaborate, tratteggio e via di¬ 
cendo. Ogni relazione o documento, 
in pratica, può vedere estremamente 
potenziata la propria veste profes¬ 
sionale grazie a questo programma: 
la esportabilità dei grafici di Mac- 


graph in ambiente editor permette 
infatti presentazioni ben organizzate 
con testo e grafici nella medesima 
pagina, e a un prezzo di gran lunga 
inferiore a quello del software com¬ 
merciale. 

Un altro vantaggio di MacGraph è 
che una volta che avrete appreso co¬ 
me lavorano le sue varie funzioni le 
potrete modificare in conformità con 
i vostri gusti. Se pensate di aver bi¬ 
sogno di un ulteriore tipo di diagram¬ 
ma potete scrivere i dati per realizza¬ 
re quel grafico e aggiungerlo sempli¬ 
cemente al menù. Non avete biso¬ 
gno di scrivere un data editor o routi¬ 
ne di file, in quanto sono già stati 
scritti per voi. Se il costoso package 
di software in vostro possesso non 
fa proprio quel che vorreste fargli fa¬ 
re è probabile che ve lo dobbiate te¬ 
nere com’è, ma MacGraph può diven¬ 
tare il vostro tool kit grafico profes¬ 
sionale, adatto per tutti gli usi ed e- 
spandibile. 


Per un’applicazione esemplificati¬ 
va di MacGraph considerate il caso 
di una società immaginaria, la Ros¬ 
si & C. Ne seguiremo le fortune lun¬ 
go l’anno decorso tracciando il grafi¬ 
co delle sue vendite (in milioni) per 
ciascuno dei quattro trimestri. 

La Rossi & C, società di giochi 
per computer, ha registrato in parten¬ 
za un discreto successo, scrivendo 
giochi classici come Bit Byter e A- 


ftemoon Madness. Ha venduto nel 
primo trimestre questi giochi per 
120 milioni di lire e poi, rincuorata 
da questo modesto successo, li ha a- 
dattati al Macintosh. Sull’onda cre¬ 
scente della popolarità del Mac la 
Rossi & C ha venduto nel secondo 
trimestre giochi per 210 milioni. 
Nel terzo trimestre la società ha ag¬ 
giunto al suo catalogo software edu¬ 
cativo, giochi di quiz e una simula¬ 
zione in tempo reale di una zattera 
che scende lungo una rapida, e ha vi¬ 
sto battere vendite per 348 milioni 
sui registratori di cassa dei negozi 
d'informatica di tutto il paese. 

Nel quarto trimestre è sopraggiun¬ 
to il disastro. La Rossi & C è stata 
acquistata con un'ostile operazione 
di rilevamento, ha registrato solo 48 
milioni di vendite e poco tempo do¬ 
po ha fatto istanza di fallimento. 

Quando fate girare MacGraph la vi- 
deata d'intestazione vi informa che il 
programma è pronto e che i suoi due 
menù speciali sono attivi. Questi 
due menù compaiono alla destra dei 
normali menù Macintosh e Basic. Il 
primo, denominato MacGraph File, 
ha opzioni per introdurre, immagaz¬ 
zinare, caricare e copiare i dati. L'al¬ 
tro menù, Graph, ha opzioni per i 
quattro tipi di grafico che MacGraph 
può produrre. 

Prima di poter realizzare i vari dia¬ 
grammi dobbiamo mettere nel com¬ 
puter un po’ di numeri e parole con 
cui MacGraph possa lavorare. Per in¬ 
trodurre i numeri per il vostro grafi¬ 
co è sufficiente che scegliate EditDa- 


Come si usa 
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ta nel menù MacGraph File. Viene 
visualizzato uno schermo con una 
griglia come quella visibile in figura 
1. La barra del cursore compare nel 
riquadro 1 (nell’angolo in alto a sini¬ 
stra della griglia), pronto per l'intro¬ 
duzione del vostro primo numero. 

Se usate il Macintosh da un po’ di 
tempo sapete già come si usa il Da¬ 
ta Editor di MacGraph. Esso impie¬ 
ga la funzione EDIT FILES del Mi¬ 
crosoft Basic per utilizzare tutte le 
normali capacità di editing del Ma¬ 
cintosh. Potete tagliare, copiare e in¬ 
collare esattamente come fate nor¬ 
malmente con qualsiasi altro pro¬ 
gramma. Facendo clic su una casella 
si fa comparire il cursore in mezzo a 
quella casella, e il tasto <Tab> o 
<Retum> sposta a destra (e se neces¬ 
sario in giù) di una casella. E’ suffi¬ 
ciente introdurre i vostri numeri, cor¬ 
reggerli secondo necessità e lasciare 
una casella vuota, o con un numero 
negativo, a segnare la fine dei vo¬ 
stri dati. Ci sono in tutto 40 caselle, 
il che significa che nel vostro dia¬ 
gramma c’è spazio per 40 punti di da¬ 
ti, quanto basta per la maggior parte 
delle applicazioni d’ufficio. 

Dovete tenere a mente alcune cose 
quando introducete i dati per un grafi¬ 
co. In primo luogo MacGraph può 
tracciare solo numeri positivi: tutti i 
grafici partono da 0,0 nell’angolo in 
basso a sinistra. Scegliete unità di 
misura che abbiano senso e che non 
implichino numeri molto grandi. 
Per il nostro esempio della Rossi & 
C abbiamo scelto come unità di mi¬ 
sura i milioni di lire di vendite. Non 
preoccupatevi di mettere in scala il 
vostro grafico (assicurandovi che tut¬ 
ti i valori dal più piccolo al più gran¬ 
de trovino posto nel grafico): provve¬ 
de MacGraph a farlo per voi. 

Dopo aver introdotto i dati vi ba¬ 
sta fare clic sul pulsante OK nell'an¬ 
golo in basso a destra. I dati restano 
in memoria fino a quando li cam¬ 
biate. 

Per salvare i dati in un file sul di¬ 
schetto basta scegliere Registra col 
nome nel menù MacGraph. Compa¬ 
re un normale box di dialogo, e vie¬ 
ne chiesto il nome del file con cui 
salvare i dati. Potete caricare dal di¬ 
schetto un file salvato in precedenza 
scegliendo Apri nello stesso menù e 
facendo un doppio clic sul nome del 
file voluto. 

MacGraph crea file di dati che con¬ 
stano di numeri separati da virgole. I- 
noltre leggerà i file in cui i numeri 


r é l : il« Edit S«ar<h Run Windows M(tcGr<iph Fite Grafia 



Figura 1. Lo screen per l'inserimento dei dati in MacGraph. 
Si usa la funzione Edit Field del Microsoft Basic. 


é Rie Edit Seanh Run Windows MacGraph Fili? Grafia 



Figura 2. Etichettaggio dei grafici nel programma MacGraph. 


siano separati da ritorni carrello. Po¬ 
tete usare qualsiasi text editor, com¬ 
presi MacWrite o l’editor del MBa- 
sic, per creare un file nell'uno o nel¬ 
l’altro formato, ma lo dovete salva¬ 
re usando l’opzione Text. 

Etichettaggio 
e realizzazione 

Un grafico dotato di soli numeri 
non serve a molto, dato che non si 
può dire se costituisca il prodotto na¬ 
zionale lordo della Lapponia o il nu¬ 
mero dei Macintosh in possesso del¬ 
le 500 società di Fortune. Per ag¬ 
giungere le parole da accompagnare 


ai vostri dati scegliete Edit Titoli 
nel menù MacGraph File. Compari¬ 
rà la videata della figura 2. Usando 
le stesse funzioni di editing del data 
editor potete introdurre un titolo per 
il grafico, un’etichetta per l’asse ver¬ 
ticale e una per l'asse orizzontale. In 
figura 2 si può vedere che cosa abbia¬ 
mo introdotto per il nostro esempio 
della Rossi & C. Le figure 3, 4, 5 e 
6 mostrano come si presentino que¬ 
sti titoli nei grafici ultimati. 

Adesso che avete introdotto i nu¬ 
meri e i titoli siete pronti a realizza¬ 
re i grafici. Il menù Graph offre quat¬ 
tro opzioni: 

1. Un grafico lineare che traccia i 
punti dei dati alle opportune coordi- 
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nate e li collega con una linea (figu¬ 
ra 3). Notate che MacGraph si limi¬ 
ta a numerare l’asse orizzontale da u- 
no al numero dei dati introdotti (nel 
nostro esempio quattro, per i quattro 
trimestri). I numeri lungo l’asse ver¬ 
ticale sono calcolati automaticamen¬ 
te in modo che stiano nell’arco dei 
valori dei dati fomiti. Vedrete più a- 
vanti come questo funzioni. 

2. Un grafico a barre, nel quale i 
dati sono rappresentati come barre 
verticali equamente spaziate lungo 
l’asse orizzontale (figura 4). Vengo¬ 
no usati gli stessi numeri e titoli del 
grafico a linee. 

3. Un grafico a torta con le fette 
contrassegnate dalle percentuali (figu¬ 
ra 5). Il primo punto di dati comin¬ 
cia dalla posizione delle ore dodici, e 
i settori sono letti in senso orario. 
Notate che in questo e nell’altro gra¬ 
fico a torta compare soltanto il tito¬ 
lo del grafico, in quanto non ci sono 
assi. I valori dei dati sono messi in 
scala in modo che i settori sommati 
coprano 360 gradi. Le percentuali 
sommate non fanno necessariamente 
il 100 per cento, a causa dell'arroton¬ 
damento. 

4. Un grafico a torta con i valori 
effettivi dei dati invece delle percen¬ 
tuali (figura 6); per il resto il forma¬ 
to è identico a quello del grafico pre¬ 
cedente. 

Per realizzare un grafico basta sce¬ 
gliere l'opzione appropriata nel me¬ 
nù Graph. Se non avete introdotto o 
caricato qualche dato un messaggio 
vi informerà che non ci sono dati; al¬ 
trimenti apparirà il vostro grafico. 
Poi potete usare le normali funzioni 
di stampa su schermo del Macintosh 
(premendo simultaneamente i coman¬ 
di <Command>, <Shift> e 4 per fa¬ 
re una copia su carta del vostro gra¬ 
fico. Se volete una stampa su carta 
ad alta qualità, salvate il grafico su 
clipboard, trasportatelo su Mac Wri- 
te o Mac Paint e stampatelo sce¬ 
gliendo l'opzione di stampa. 

Se volete combinare il vostro gra¬ 
fico con un altro documento, o usare 
un’altra applicazione per aggiungere 
al grafico testo e/o abbellimenti, vi 
basta scegliere Graph -> Clipboard 
nel menù MacGraph File. Il grafico 
visibile al momento sullo schermo 
viene copiato sul clipboard, dove 
può essere incollato ai documenti 
creati con altre applicazioni. 

Il menù MacGraph File prevede an¬ 
che opzioni per passare al Basic, pas¬ 
sare alla scrivania e avere istruzioni. 


Questo è tutto per l’uso di MacGra¬ 
ph. Vi conviene provare a fare qual¬ 
che grafico scegliendo voi numeri e 
titoli, e proseguire poi la lettura del¬ 
l'articolo per vedere come funziona 
MacGraph. 

Come funziona 

MacGraph (listato 1) è interamen¬ 
te pilotato da menù, e questo rende 
la sua struttura molto facile da com¬ 
prendere. Un loop non operativo 
non fa che girare fino a quando viene 
interrotto da una scelta nel menù. 
Quando studierete il codice prestate 
particolare attenzione alla funzione 
EDIT FILE del Microsoft Basic per 
l'introduzione di dati ed etichette. 
Questa funzione rende molto facile 
ricevere dati, fornendo i mezzi per 
un editing che richiederebbe altrimen¬ 
ti molte linee di programma per esse¬ 
re implementato. Il riquadro di pag. 
95 mostra una descrizione di quanto 
detto sopra. 

In [A] sono dimensionate le due 
matrici che conservano i dati e titoli 
introdotti. Per quanto sia possibile 
modificare il programma in modo 
che accolga un maggior numero di 
punti di dati il vero limite sta nella 
quantità di informazioni che si può 
mostrare in uno stesso grafico. Nel¬ 
la realizzazione di grafici matematici 
(tracciamento di equazioni) più punti 
di dati si aggiungono più diventa pre¬ 
ciso il diagramma. MacGraph è però 
congegnato per la grafica commercia¬ 
le o altra grafica descrittiva, e a que¬ 
sto fine quaranta punti di dati sono 
un limite adeguato. 

Analogamente le tre etichette con¬ 
sentite da MacGraph, il titolo del 
grafico e un’etichetta per ciascun as¬ 
se, di solito dovrebbero bastare. Tut¬ 
tavia, come abbiamo notato, Ma¬ 
cGraph comprende la possibilità di 
trasferire il grafico, per esempio, a 
MacPaint, in modo che si possano 
aggiungere quanti titoli o etichette 
si vuole. 

Le coordinate per una finestra a 
più usi (Wind2) sono anch’esse spe¬ 
cificate in questa parte del listato. 
Questa finestra viene utilizzata per 
visualizzare i dati quando vengono 
letti da un file. In MacGraph abbia¬ 
mo a che fare con due tipi di geome¬ 
tria, rettangolare e circolare, e i con¬ 
fini per ambedue sono definiti subi¬ 
to dopo. 

Anzitutto vengono specificate le 


coordinate X e Y minima e massi¬ 
ma, e così pure l’estensione totale di 
X e Y. Queste vengono usate come 
confini massimi per i grafici lineari 
e a barre. Poi vengono definiti i mas¬ 
simi confini circolari e il raggio per 
i grafici a torta. PI viene definito co¬ 
me costante a doppia precisione (si 
noti il "#” che segue il numero). Il 
ricorso alla doppia precisione aumen¬ 
ta l’accuratezza del disegno e della ri- 
partizione delle fette dei grafici a tor¬ 
ta. L'impiego di PI come costante ac¬ 
celera considerevolmente il disegno, 
in quanto elimina il calcolo ripetiti¬ 
vo di questo rapporto. 

La funzione Log 10 converte la fun¬ 
zione di logaritmo naturale incorpo¬ 
rata nel Microsoft Basic in un logari¬ 
tmo in base dieci adatto per mettere 
in scala i dati in modo che stiano tut¬ 
ti nel grafico. Se ne parla più oltre. 
Dopo questa definizione della funzio¬ 
ne vengono impostate le dimensioni 
della finestra MacGraph a tutto 
schermo. 

Successivamente [B] vengono alle¬ 
stiti i due menù, MacGraph File e 
Graph. L'opzione ’-’ specificata pri¬ 
ma delle opzioni di "fine" nel menù 
File viene utilizzata in realtà per 
stampare una linea di trattini che se¬ 
para le opzioni "di lavoro" dalle o- 
pzioni di fine. Quando si hanno mol¬ 
te opzioni in un menù simili separa¬ 
zioni aiutano a suddividerle in grup¬ 
pi praticabili. 

Notate lo zero finale nella specifi¬ 
cazione del menù per questa voce. 
Esso è necessario per rendere inatti¬ 
va (ossia non selezionabile come o- 
pzione) la linea di divisione. La va¬ 
riabile GType, inizializzata come u- 
no, conterrà il tipo di grafico selezio¬ 
nato nel menù Grafico. Viene poi 
predisposta la gestione dell’evento di 
menù, con la subroutine MenuEvent 
[E] come gestore. 

La videata d’intestazione è disegna¬ 
ta in [C]. Prima che cominci il pro¬ 
gramma principale viene richiamata 
la subroutine InitData [ZI] per ini- 
zializzare a -1 (il marcatore di fine 
dei dati) gli elementi della matrice di 
dati. Ciò assicura che la matrice 
venga letta come priva di dati fino a 
quando i dati verranno introdotti dal¬ 
l’utente. 


Eventi e opzioni 

Il programma principale [D] è pra¬ 
ticamente una non entità: è un loop 
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senza fine il cui unico scopo è dare 
al Basic un posto d'attesa fra gli e- 
venti del menù. La subroutine Me- 
nuEvent in [E] è più interessante. 
La prima cosa che essa fa è disattiva¬ 
re entrambi i menù per impedire che 
ulteriori eventi di menù interrompa¬ 
no l'elaborazione dell'opzione corren¬ 
temente selezionata. La funzione BA¬ 
SIC MENU(0) restituisce poi il nu¬ 
mero del menù selezionato, che è as¬ 
segnato alla variabile MenuBar. Il 
menù selezionato sarà o 6 (MacGra¬ 
ph File) o 7 (Graph). Viene poi usa¬ 
ta la funzione Menu(l) per procurar¬ 
si il numero della voce scelta, che è 
assegnato (cosanon sorprendente) al¬ 
la variabile Item (voce). 

I normali menù Macintosh e Mi¬ 
crosoft Basic che sono attivi durante 
MacGraph non ci interessano in que¬ 
sta sede, dato che sono automatica- 
mente gestiti dai rispettivi gestori e 
quindi non hanno come conseguenza 
l'arrivo del controllo a questa subrou¬ 
tine. Dato che il menù File del Ba¬ 
sic è inattivo durante l'operazione di 
MacGraph ci si riferisce sempre alio 
speciale menù MacGraph File quan¬ 
do parliamo di menù File. 

Se il numero di MenuBar non è 7 
è stata selezionata una voce nel me¬ 
nù File, e il controllo va alla label 
FileMenu, e di lì all'appropriata su¬ 
broutine tramite l'istruzione ON GO- 
SUB. Dato che almeno alcune di que¬ 
ste opzioni devono essere usate pri¬ 
ma che sia tracciato un grafico vedia¬ 
mo anzitutto come vengono imple¬ 
mentate le opzioni di File. 

Apri - La subroutine FOpen [F] 
viene usata per aprire un file di dati 
sul dischetto allo scopo di procurarsi 
dati per un grafico. I dati sono resi 
disponibili per l'editing nel Data Edi¬ 
tor se così si desidera, oppure si può 
procedere direttamente ad aggiungere 
i titoli e a realizzare i grafici. Viene 
usata la normale funzione FILE$ del 
Basic per procurarsi la selezione del 
file, che è specificato come file di te¬ 
sto. E' questo il solo formato di dati 
che MacGraph può gestire, e quindi 
è il solo tipo di file visibile nella fi¬ 
nestra di selezione dei file. 

Se viene fatta una scelta di file va¬ 
lida viene affidato alla subroutine O- 
penWindow [Z2] il compito di apri¬ 
re la finestra multiuso predefinita. 
Qui la finestra è utilizzata per visua¬ 
lizzare i valori dei dati di mano in 
mano che vengono letti. Dopo un 
messaggio che informa che i dati so¬ 
no in corso di lettura (e il nome del 


file dal quale vengono letti) viene in¬ 
trodotto il loop WHILE NOT EOF. 

La variabile i viene usata per con¬ 
tare il numero delle voci di dati let¬ 
te. Dopo che a questo conteggio è 
aggiunto uno viene letto un nume¬ 
ro, che è assegnato alla variabile j. 
Viene disegnato un box interno me¬ 
diante l'istruzione LINE con l'opzio¬ 
ne bf. 

Viene controllato il valore del con¬ 
tatore i. Se supera il numero massi¬ 
mo delle voci di dati (MaxData) vie¬ 
ne stampato un messaggio il quale 
informa che il file di dati è troppo 
grande, e il controllo va alla label 
TooLarge. Una volta che ciò accade 
avverrà lo stesso per qualsiasi ulte¬ 


riore numero fino a che si raggiunge¬ 
rà la fine del file. Nessuno dei nume¬ 
ri in eccesso sarà aggiunto alla matri¬ 
ce dei dati (GData). 

Viene controllato anche il valore 
del numero stesso (j). Se è negativo 
viene cambiato in positivo con la 
funzione di valore assoluto (ABS), e 
viene visualizzato un messaggio in 
questo senso. Un numero negativo 
può segnare la fine dei dati se l'uten¬ 
te lo ha utilizzato a questo scopo, 
ma ciò che termina effettivamente il 
loop di lettura dei dati è il fatto che 
EOF diventa vero. In ogni caso i 
numeri negativi devono essere cam¬ 
biati in positivi, dato che i grafici 
hanno solo coordinate positive. Il 
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numero viene poi assegnato al suc¬ 
cessivo elemento della matrice GDa- 
ta e stampato. 

La variabile DNum (il numero del¬ 
le voci di dati effettivamene lette) è 
impostata o sul valore del contatore 
quando il loop WHILE è finito o sul 
numero massimo delle voci di dati 
(MaxData, fissato a 40) a seconda 
che sia più piccolo rispettivamente 
il primo o il secondo. Viene visua¬ 
lizzato un messaggio che dice quan¬ 
te voci sono state lette, e un loop 
WHILE-WEND attende fino a quan¬ 
do si fa clic sul pulsante OK accluso 
alla finestra. Dato che c'è un solo 
pulsante il loop non fa che controlla¬ 
re che DIALOG(O) diventi uno, a in¬ 
dicare un clic del mouse su un pul¬ 
sante nella finestra attiva. Quando 
ciò accade la subroutine CloseWin- 
dow [Z3] è chiamata a eliminare que¬ 
sta finestra. Notate l'istruzione CLS 
(pulisci schermo) impiegata per 
sgomberare qualsiasi cosa rimanga 
nella finestra più esterna di Ma- 
cGraph. 

Registra col nome - La subroutine 
SaveAs [G] riceve il nome del file 
tramite l'onnipresente funzione FI- 
LE$ (ricordatevi di usare uno zero 
con FILE$ quando volete dare un no¬ 
me per salvare un file, e di usare un 
uno quando volete avere l’elenco dei 
file sul dischetto). Se si ottiene un 
nome valido gli elementi della matri¬ 
ce dati GData sono semplicemente 
stampati nel file. Qui non occorre 
controllare se ci sia un numero ecces¬ 
sivo di voci, dato che il programma 
si accerta che non vengano accettate 
più voci di MaxData quando i dati 
vengono letti in GData o se ne fa l'e¬ 
diting. 

Edit Data - Questa opzione, gesti¬ 
ta dalla subroutine EditData [H], è u- 
sata per l'editing della lista di dati 
(aggiungere e/o cambiare dati). I dati 
possono essere letti da dischetto o in¬ 
trodotti da tastiera. Viene aperta la fi¬ 
nestra secondaria, come descritto per 
l'opzione Apri, e vengono definiti i 
confini superiore e sinistro della gri¬ 
glia di editing. Viene visualizzato 
un messaggio di promemoria e il 
flag DataEnd è messo = falso. 

Viene utilizzato un loop FOR-NE- 
XT per posizionare, visualizzare ed e- 
ditare i dati. Per prima cosa viene 
calcolata la posizione per ciascun 
campo di editing (che sarà usata per 
editare una voce di dati). L'offset dal 
confine sinistro (LeftEd), assegnato 
alla variabile loffset, è uguale al nu¬ 


mero della voce, i, meno uno (dato 
che le voci cominciano da uno) per 
la larghezza di un casella del campo 
di editing (70) MOD 5. Viene usata 
la funzione MOD perché ci sono cin¬ 
que voci per riga: dato che qui c'inte¬ 
ressa fino a che punto andremo sulla 
destra, non in basso, ci occorre il nu¬ 
mero delle caselle che rimangono do¬ 
po che sono stati messi in gruppi di 
cinque. L'offset dal confine superiore 
(TopEd), assegnato alla variabile tof- 
fset, è uguale al numero della voce 
meno uno, diviso cinque (dato che 
dobbiamo sapere di quante righe 
complete scendere), per 20 (l'altezza 
di un casella di editing). Questa pro¬ 
cedura generale vi permette di dise¬ 
gnare, e di posizionarvi, in qualsiasi 
griglia rettangolare regolare di og¬ 
getti. 

Quando la posizione di ogni voce 
è stata determinata mediante questi 
calcoli avete bisogno di sapere se a- 
vete raggiunto l'inizio di una nuova 
linea. In caso affermativo dovete 
stampare uno dei numeri di riferi¬ 
mento (1, 6,11 e così via) che corro¬ 
no lungo il lato sinistro della gri¬ 
glia. Se il numero della voce meno 
uno MOD 5 è zero siete all'inizio di 
una nuova linea, e il numero della 
voce corrente, i, è stampato in gran¬ 
de, inserito e leggermente in basso 
rispetto alla posizione del primo 
campo di editing della nuova linea 
(ricordate che le coordinate del corren¬ 
te campo di editing sono loffset, tof- 
fset). Poi il controllo continua alla 
label NotLine, dove pure finite se il 
corrente campo di editing non ha av¬ 
viato una nuova linea. 

La voce di dati corrente (Gdata(i)) 
viene controllata per vedere se è ne¬ 
gativa. In caso affermativo il flag 
DataEnd viene messo su vero. Se la 
voce segna la fine dei dati non viene 
stampato niente (si ha una stringa 
nulla); altrimenti la voce viene con¬ 
vertita in stringa. Questo è necessa¬ 
rio per poterla editare con l'istruzio¬ 
ne EDIT FIELD del Basic. L'istru¬ 
zione EDIT FIELD contiene le se¬ 
guenti specificazioni: 

1. Il campo di editing, ID, che in 
questo caso è il numero della voce 

(i). 

2. L'espressione della stringa da edi¬ 
tare (i$) che avete convertito da GDa- 
ta(i). 

3. Le specificazioni per il rettangolo 
nel cui ambito l’editing avrà luogo. 
Esse sono nel normale formato Ba¬ 
sic di coordinate superiore-sinistra 


(X,Y) meno coordinate inferiore-de¬ 
stra (X,Y). In questo caso le specifi¬ 
cazioni sono spostate rispetto alle 
coordinate della posizione di campo 
della voce corrente (loffset, toffset), 
come calcolata in precedenza. 

4. La specificazione seguente, per la 
quale vi limitate a mettere una virgo¬ 
la senza un valore (a indicare il de¬ 
fault), disegna una casella attorno al 
rettangolo che definisce il campo di 
editing. Fa inoltre sì che il cursore 
si sposti nel campo seguente se vie¬ 
ne premuto il tasto <RETURN> 
mentre si è nel campo. 

5. Il parametro 2 viene usato per se¬ 
lezionare la giustificazione al centro. 
Quando si introducono i numeri ven¬ 
gono automaticamente centrati. 

Se non avete usato finora la fun¬ 
zione EDIT FIELD vale la pena di 
fame la conoscenza. 

Una volta definiti, tutti i campi di 
editing restano attivi fino a quando 
la finestra viene chiusa. Definito un 
campo di editing per la voce corrente 
il loop continua a posizionare, defi¬ 
nire e visualizzare i campi di editing 
fino a quando sono stati predisposti 
tutti i 40 campi. L'istruzione EDIT 
FIELD 1 che viene dopo fa del pri¬ 
mo campo il campo di editing attivo 
e visualizza il cursore, pronto per la 
reazione dell'utente. La variabile e- 
Field (il numero del campo di editin- 
g attualmente in uso) viene messa a 
uno, e la variabile MaxFields (il nu¬ 
mero massimo dei campi da editare) 
viene messa a MaxData. Questa va¬ 
riabile è utilizzata perché si possa u- 
sare la stessa routine per scrivere nei 
campi dei titoli, dei quali parleremo 
nella prossima sezione. 

Per l’editing vero e proprio dei dati 
viene usata la subroutine EditFields 
[Z]. Essa mette il flag OK su falso. 
Il flag diventa vero quando fate clic 
sul pulsante in OK, mettendo DIA¬ 
LOGO) su uno. Il loop WHILE- 
WEND comincia prelevando il valo¬ 
re di DIALOG(O) e assegnandolo al¬ 
la variabile diag. Se diag = 1 OK vie¬ 
ne messo su vero, e al passaggio se¬ 
guente si esce dalla subroutine. Se 
diag = 2 vi siete spostati in un nuo¬ 
vo campo di editing facendo clic in 
quel campo con il mouse. In questo 
caso il campo corrente nel quale scri¬ 
vere (eField) è messo su DIA¬ 
LOGÒ), perché questa funzione di 
dialogo è predisposta appunto per re¬ 
stituire il valore del corrente campo 
di editing. 

Oltre a usare un clic del mouse vi 
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potete spostare in un nuovo campo 
premendo o <Tab> o <Retum>, e 
quindi dovete controllare se siano sta¬ 
ti premuti questi tasti. Se diag non è 
né 7 né 6 allora né <Tab> né <Re- 
tum> sono stati premuti, il control¬ 
lo va alla label NotTab e non occor¬ 
re fare altro. Altrimenti viene calco¬ 
lato il numero del nuovo campo. 
L’impiego della funzione MOD per¬ 
mette a questi tasti di passare al pri¬ 
mo campo della linea seguente se e- 
ravate nell'ultimo campo di una li¬ 
nea quando è stato premuto il tasto. 
Viene poi usata l'istruzione EDIT 
FIELD per scrivere nel nuovo cam¬ 
po nel modo esaminato sopra. 

Una volta completata l’attività di e- 
diting il controllo toma a EditData. 
Un loop va a ritroso attraverso i 
campi di editing per prelevare i valo¬ 
ri editati e aggiornare la matrice 
GData. Il loop determina inoltre do¬ 
ve sia la fine dei dati e perciò trova 
il numero totale delle voci di dati. 
La matrice stringa EDIT$ viene defi¬ 
nita dal Basic come matrice conte¬ 
nente l’insieme di stringhe di tutti i 
campi di editing in uso. La stringa 
del corrente numero di campo, i, che 
comincia a MaxData (40 nel caso 
dei campi di dati) è assegnata a j$ e 
controllata per vedere se sia nulla o 
vuota. In caso affermativo non ci so¬ 
no dati (può essere il marcatore di fi¬ 
ne dei dati, o ci possono essere altri 
campi vuoti, nulli o -1 cui andare) e 
viene assegnata la stringa ’-l'. 

Viene poi usata la funzione VAL 
per avere il valore numerico della 
stringa corrente. Se è negativa (o 
perché era nulla o vuota o perché 
conteneva effettivamente un numero 
negativo) non ci può essere un nu¬ 
mero di campi di dati superiore a 
quello corrente. Pertanto DNum, il 
numero totale dei campi di dati, vie¬ 
ne ridotto di uno. Il valore viene poi 
messo nel corrente elemento di GDa¬ 
ta. Quando il loop FOR-NEXT è fi¬ 
nito DNum contiene il numero delle 
voci lette, e GData contiene i valori 
numerici delle voci. La finestra di e- 
diting dei dati viene chiusa e l’opzio¬ 
ne è completa. 

Edit Titoli - Per scrivere i titoli da 
usare nei grafici generati con il cor¬ 
rente insieme di dati viene utilizzata 
la subroutine Title [I]. La procedura 
è molto simile a quella usata nel da¬ 
ta editor. Come in quella subroutine 
viene richiamata OpenWindow per a- 
prire la finestra multiuso e sono defi¬ 
niti i confini superiore e sinistro del¬ 


l’area di editing. Poi viene visualizza¬ 
to un messaggio di prompt tramite 
il sottoprogramma DrawStr [Y]. 

Si utilizza questa routine, anziché 
una semplice istruzione PRINT, 
perché centra la stringa prima di 
stamparla. E' cosa frequente che le 
routine di formattazione come Dra¬ 
wStr siano codificate come sottopro¬ 
grammi anziché come subroutine 
perché il sottoprogramma può farsi 
passare direttamente qualsiasi stringa 
come parametro, invece che si debba 
prima assegnare la stringa a una va¬ 
riabile convenuta. 

Le descrizioni dei tre campi di edi¬ 
ting vengono stampate con una nor¬ 
male combinazione di istruzioni 
MOVETO e istruzioni PRINT 
perché non occorre centrarli. Poi i 
tre campi vengono predisposti da 


un'istruzione FOR-NEXT. Anche in 
questo caso l'allestimento viene fat¬ 
to calcolando l'offset dai confini su¬ 
periore e sinistro. Dato che qui ci so¬ 
no soltanto tre campi di editing e 
che essi sono direttamente uno sotto 
l’altro, l’allestimento è molto più 
semplice di quanto sia stato per i 
campi dei dati. La matrice Title$ 
conserverà i titoli editati. 

Dopo che MaxFields è stato mes¬ 
so su tre viene richiamata la routine 
EditFields [Z] per poter scrivere nei 
campi. Notate che si è usata la stes¬ 
sa subroutine per utilizzare i campi 
di dati, ma qui prima di richiamarla 
si è dovuto cambiare MaxFields. La 
gestione dei campi di editing del Ba¬ 
sic ci permette di cavarcela usando u- 
na sola subroutine per scrivere sia i 
dati sia i titoli. Il loop FOR-NEXT 
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conclusivo non fa che leggere il con¬ 
tenuto di EDIT$ (dove il Basic im¬ 
magazzina i risultati dell'editing) nei 
corrispondenti elementi di Title$. 
Poi viene richiamata la ,subroutine 
CloseWindow [Z3] per chiudere la 
finestra e pulire lo schermo. 

Graph -> Clipboard - La subrouti¬ 
ne ClipGraph [J] copia sul clipboard 
il grafico che viene disegnato, in mo¬ 
do che possa essere trasferito ad altre 
applicazioni. Viene anzitutto control¬ 
lata la variabile DNum per accertare 
che siano in uso al momento dati da 
cui disegnare il grafico. Se non ven¬ 
gono trovati dati la subroutine No- 
Data [S] invita a introdurne. Se so¬ 
no presenti dati ci si sposta all'istru¬ 
zione PICTURE ON. Questa istru¬ 
zione abilita il Basic a registrare le i- 
struzioni grafiche che saranno usate 
per disegnare il grafico in una strin¬ 
ga, che potrà essere in seguito resti¬ 
tuita dalla funzione PICTURE$. L'i¬ 
struzione CALL SHOWPEN riatti¬ 
va la penna in modo che il grafico 
venga disegnato sullo schermo oltre 
a essere registrato (il default con PI- 
CTURE ON ha la penna disattivata 
e quindi non viene visualizzato al¬ 
cun output sullo schermo). 

Per scegliere il tipo di diagramma 
da disegnare viene richiamata la su¬ 
broutine DrawGraph [N]. Essa puli¬ 
sce lo schermo e controlla il valore 
di Dnum per accertare che i dati sia¬ 
no presenti, invitando ancora tramite 
NoData a introdurre dati se non rie¬ 
sce a trovarne. Il tipo di grafico da di¬ 
segnare viene immagazzinato nella 
variabile GType: è la più recente se¬ 
lezione nel menù Graph (questo me¬ 
nù e la concreta meccanica dell'opera¬ 
zione di disegno dei grafici sono esa¬ 
minati più sotto). 

Quando il grafico è stato disegnato 
il controllo toma a ClipGraph, e il 
grafico disegnato è immagazzinato 
nella stringa deirimmagine. La pen¬ 
na viene disattivata, viene emessa 
PICTURE OFF per arrestare la regi¬ 
strazione delle immagini e viene a- 
perto per l'output il file Clip:Pictu- 
re. Ricordate che Clip è il nome di 
file standard del Macintosh per il cli¬ 
pboard e che il suffisso :Picture è ne¬ 
cessario per poter scrivere le informa¬ 
zioni delFimmagine sul clipboard. 
Le informazioni contenute in Pictu- 
re$ vengono stampate e l'opzione è 
completa. 

Altre opzioni del menù File - Le 
altre opzioni sono abbastanza sem¬ 
plici. La subroutine Inst [K] visua- 


Listato 1 


MacGraph by The Waite Group, Ine. 

Mitchell Waite, Dan Putterman, Don Urquhart, Chuck Blanchard. 

MacGraph è tradotto dal libro Macintosh Midnight Madness: Games Utilities and Other 
Diversions in Microsoft BASIC per 1' Apple Macintosh, pubblicato da Microsoft Press, 
Bellevue, WA. All Rights Reserved worldwide 
Copyright 1985 - The Waite Group, Ine 
Microsoft BASIC 2.0 (b) 

Grafici sullo schermo 


- Inizializza [A] 

MaxData = 40 ' Numero massimo delle voci. 

DIM GData(MaxData) 

DIM Title$ (3) 

PI = 3.1415926# 

Wind2L = 16: Wind2T = 55 
Wind2W = 479: Wind2H = 270 

MinX = 70: MaxX = 450: XRange = MaxX - MinX 
MinY = 25: MaxY = 225: YRange = MaxY - MinY - 5 
CircleX=250: CircleY=150: CircleR = 110 
false= 0: true = NOT false 

'- FN LoglO(x) restituisce il valore LoglO di x. 

DEF FN LoglO(x) = .434294*LOG(x) 

-Verifica l'esatta dimensione della finestra. 

WINDOW 1,"MacGraph", (2, 40)- (508,337),1 

- Definisce i menu di MacGraph [B] 

MENU 6,0,1,"MacGraph File" 

MENU 6,1,1,"Apri" 

MENU 6,2,1,"Registra col nome" 

MENU 6,3,1,"Edit Data" 

MENU 6,4,1,"Edit Titoli" 

MENU 6,5,1,"Graph -> Clipboard" 

MENU 6,6,1,"Istruzioni" 

MENU 6,7,0,"-" 

MENU 6,8,1,"Esci -> BASIC" 

MENU 6,9,1,"Esci -> Scrivania" 

MENU 7,0,1,"Grafici" 

MENU 7,1,1,"Lineare" 

MENU 7,2,1,"Barre" 

MENU 7,3,1,"Torta con % " 

MENU 7,4,1,"Torta con Valori" 

GType = 1 


- Abilita la gestione dei Menu 

ON MENU GOSUB MenuEvent 
MENU ON 


'- Disegna il Titolo sullo Schermo. [C] 

CALL TEXTSIZE (36): CALL TEXTFONT (0) 

LOCATE 2,6 
PRINT " MacGraph!" 

LOCATE 3,6 
CALL TEXTSIZE(12) 

PRINT " I menu di MacGraph sono attivi." 

CALL TEXTFONT (1): CALL TEXTMODE (1) 

GOSUB InitData 

******************** L 00 p di controllo Programma principale *********** [D] 
WHILE true ' Poiché il programma è gestito da menu, 

WEND * questo loop controlla in continuazione. 


************ [E] 

' Attivazione menu. 
Disabilita i menu 
' Cerca quale menu, 

' e quale voce nel menu. 


.********************** Gestione Menu *****^ 

MenuEvent: 

MENU 6,0,0: MENU 7, 0, 0 
MenuBar = MENU(0) 

Item = MENU(1) 

IF MenuBar <> 7 THEN FileMenu 
GType = Item 
GOSUB DrawGraph 
GOTO MEventEnd 
FileMenu: 

ON Item GOSUB FOpen, SaveAs, EditData, Titles, ClipGraph, Inst ,, BasicQuit, 
DeskQuit 


MEventEnd: 

MENU 6,0,1: MENU 7,0,1 ' Riabilita i menu 

RETURN 


FOpen: '_ Apre il File e legge da questo. [F] 

FileNameS = FILESS(1,"TEXT") ' Cerca il nome del file. 

IF FileNameS = "" THEN CLS:RETURN 'E' stato premuto il pulsante; cancella . 
GOSUB OpenWindow 
CALL TEXTFONT (0) 
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CALL MOVETO(108,50): PRINT "Sto leggendo i dati da: ";FileName$ 

OPEN FileNameS FOR INPUT AS #1 
i =0 

WHILE NOT EOF(1) • Legge i numeri dal file, 

i = i + 1 
INPUT #1,j 

LINE (100,55)-(520,75),30,bf 
CALL MOVETO(100,70) 

IF i >MaxData THEN PRINT "Il file dati è troppo grande!";:GOTO TooLarge 
IF j <0 THEN PRINT " Il numero negativo è cambiato in positivo.";: j 
- ABS(j) 

GData (i) = j 
PRINT GData(i); 

TooLarge: 

WEND 

IF i > MaxData THEN i « MaxData 
DNum = i 

rmcr 

CALL MOVETO(100,90) 

PRINT " Trovati ";DNum;" numeri." 

WHILE DIALOG (0) <> 1: WEND 
CALL TEXTFONT(1) 

GOSUB CloseWindow 
CLS 
RETURN 

SaveAs: '- Salva i dati in un file. [G] 

file$ = FILESS(0,"Nome del file?") 

IF file$ = "" THEN NoSave 

OPEN file$ FOR OUTPUT AS #1 
FOR i = 1 TO DNum 
PRINT#1,GData(i) 

NEXT i 
CLOSEI1 
NoSave: 

CLS 

RETURN 

EditData: '- Scrittura dati. [H] 

GOSUB OpenWindow 
TopEd = 60: LeftEd = 

CALL TEXTFONT(0) 

x = 28: y = 2 

CALL MOVETO(x,y): y=y+16 

PRINT "Scrivi i dati per il grafico. Al termine lascia una casella" 

CALL MOVETO(x,y): y=y+16 

PRINT "vuota o scrivi un numero negativo, poi fai CLICK su OK." 

DataEnd = false 
FOR i = 1 TO MaxData 

loffset =LeftEd + INT((i-l) MOD 5)*70:toffset =TopEd+INT( ( (i-1)/5))*20 
IF (i-1) MOD 5 <> 0 THEN NotLine 
CALL TEXTFONT(0) 

CALL MOVETO(loffset-30,toffset+13): PRINT i; 

CALL TEXTFONT(1) 

NotLine: 

IF GData (i) < 0 THEN DataEnd = true 

IF DataEnd THEN i$ = "» ELSE i$ = STR$(GData (i)) 

EDIT FIELD i, i$, (loffset,toffset) - (loffset+60,toffset+15),,2 
NEXT i 

EDIT FIELD 1: eField = 1 
MaxFields = MaxData 
GOSUB EditFields 

DNum = MaxData 

FOR i = MaxData TO 1 STEP -1 

j$ = EDITS(Ì): IF j$ = "" OR j$ = " " THEN j$ = "-1" 
j = VAL(j$) 

IF j < 0 THEN DNum = i-1 
GData(i) = j 
NEXT i 

GOSUB CloseWindow 
RETURN 

Titles: '_ Scrittura del titolo del grafico. [I] 

GOSUB OpenWindow 

TopEd = 130: LeftEd = 200 

CALL TEXTFONT (0) 

CALL MOVETO(Wind2W/2,70) 

CALL DrawStr ("Scrivi i titoli che devono comparire nel grafico .") 
x = 30: y = TopEd+12 
CALL MOVETO(x,y): y=y+20 
PRINT "Titolo del Grafico:"; 

CALL MOVETO(x,y): y=y+20 
PRINT "Titolo asse Verticale:"; 

CALL MOVETO(x,y): y=y+20 

PRINT "Titolo asse Orizzontale:"; 

CALL TEXTFONT (1) 

FOR i = 1 TO 3 

loffset = LeftEd: toffset = TopEd+(i-1)*20 

EDIT FIELD i,Title$(i),(loffset,toffset)-(loffset+250,toffset+15),,2 

NEXT 1 (Continua) 


lizza brevi istruzioni. BasicQuit [L] 
e DeskQuit [M] restituiscono il con¬ 
trollo rispettivamente al Basic e alla 
scrivania. Quando usate le opzioni 
di fine nei vostri programmi persona¬ 
li non dimenticate che se avete crea¬ 
to menù di scopo speciale dovrete in¬ 
cludere l’istruzione MENU RESET 
per toglierli, come si è fatto qui. 

Grafici - La subroutine DrawGra- 
ph è il punto di partenza per disegna¬ 
re i grafici. Se MenuEvent determi¬ 
na che è stata fatta una scelta nel me¬ 
nù Graph il numero della voce sele¬ 
zionata viene memorizzato nella va¬ 
riabile GType. Inoltre se viene scel¬ 
ta la voce di menù Graph -> Cli- 
pboard viene richiamata DrawGraph 
per disegnare il grafico specificato in 
GType. DrawGraph pulisce lo scher¬ 
mo e controlla per accertare che ti 
siano dati dai quali disegnare il grafi¬ 
co (DNum <> 0). Se non ci sono da¬ 
ti invita tramite NoData a introdurli. 
Poi, se ci sono dati, fa una dirama¬ 
zione all’appropriata routine grafica 
tramite l'istruzione ON GType 
GOSUB. 


I tre tipi di grafico 

Notate che ci sono sostanzialmen¬ 
te due geometrie in gioco nei nostri 
grafici: la geometria di linee e rettan¬ 
goli e quella dei cerchi. Entrambi i 
tipi di diagramma implicano il proce¬ 
dimento di messa in scala dei dati 
sulla base dei valori dei dati massi¬ 
mo e minimo trovati, e di imposta¬ 
zione dei confini per il disegno dei 
grafici. Tuttavia il disegno effettivo 
dei grafici circolari (torte) è più com¬ 
plicato a causa della trigonometria 
che comporta la determinazione dei 
settori di cerchio. Cominciamo dal¬ 
l’esame del caso più semplice: il gra¬ 
fico lineare. 

• Il grafico lineare. E' la subrouti¬ 
ne LineGraph [O] a gestire il grafico 
lineare. Questo grafico richiede un te¬ 
laio rettangolare con "tacche" che se¬ 
gnano graduazioni regolari dei valori 
lungo gli assi verticale e orizzonta¬ 
le. Per realizzare questo telaio viene 
chiamata la routine DrawFrame [U]. 
Essa comincia con il trovare il valo¬ 
re massimo nella matrice di dati 
GData. 

Cominciando con Max a zero la 
subroutine usa un loop FOR-NEXT 
per confrontare a turno ogni valore 
di dato con il massimo corrente, e 
sostituisce il massimo corrente con 


93 








il valore del dato se questo è mag¬ 
giore. 

DrawFrame, a sua volta, richiama 
la subroutine CalcMax [V] per met¬ 
tere in scala i valori dei dati in modo 
che i valori più piccolo e più grande 
trovino posto nel grafico. La funzio¬ 
ne Log 10, prima definita in [A], tro¬ 
va il logaritmo in base dieci di un 
numero (la potenza alla quale si do- 
vebbe elevare dieci per ottenere quel 
numero). Per l’esattezza trova la po¬ 
tenza intera più alta. Il Microsoft Ba¬ 
sic non provvede direttamente questo 
tipo di logaritmo, ma prevede una 
funzione incorporata per il logari¬ 
tmo naturale. Questo può essere con¬ 
vertito in logaritmo decimale molti¬ 
plicandolo per 0,434294 (vorrete for¬ 
se mettere in archivio questo piccolo 
fatto, per poter calcolare i logaritmi 
decimali nella futura programmazio¬ 
ne in Basic). 

La prima, istruzione di CalcMax 
mette la variabile t alla potenza inte¬ 
ra di dieci più vicina al valore massi¬ 
mo di dati. Si tratta della prima ap¬ 
prossimazione grossolana; nel caso 
del nostro esempio, nel quale il valo¬ 
re di dati più grande è 348 (figura 
1), t sarebbe messa a dieci alla secon¬ 
da, ossia 100 (dieci alia terza, la po¬ 
tenza seguente, è 1.000, che è trop¬ 
po grande). La variabile m viene ini¬ 
zialmente messa al valore di t, e poi 
viene usato un loop WHILE-WEND 
per aggiungerle ripetutamente t fino 
a che supera il valore massimo di da¬ 
ti immagazzinato in Max. Nel no¬ 
stro esempio aggiungiamo 100 a m 
(che comincia a 100) fino a quando 
otteniamo 400. A questo punto 
Max, ossia 348, viene superato, e 
perciò il loop si ferma. 

Poi un’istruzione IF fa un test per 
vedere se Max sia inferiore a m*0,6. 
Si tratta di controllare se siamo anda¬ 
ti oltre il limite, e in caso affermati¬ 
vo se siamo andati tanto oltre da a- 
ver bisogno di cominciare a spostare 
m (il nostro massimo provvisorio) 
all’indietro verso Max. Se è così il 
controllo fa una diramazione alla la¬ 
bel CM1, t è divisa per 10 (il che dà 
in effetti una scala più fine con cui 
lavorare) e un loop WHILE-WEND 
sottrae 2*t da m fintanto che m è 
maggiore di Max. Dato che quando 
si esce dal loop sarà stata fatta una 
sottrazione di troppo 2*t viene ag¬ 
giunto nuovamente a m per assicura¬ 
re che m sia maggiore del più grande 
valore di dati (e quindi che il valore 
di dati sia aH'intemo del grafico). 


EDIT FIELD 1: eField = 1 
MaxFields = 3 
GOSUB EditFields 
FOR i = 1 TO 3 

Title$(i) = EDIT$(i) 

NEXT i 

GOSUB CloseWindow 
RETURN 

ClipGraph: - Copia l'immagine del grafico sul clipboard. rji 

IF DNum - 0 THEN GOSUB NoData: GOTO ClipEnd 1 

PICTURE ON 
CALL SHOWPEN 
GOSUB DrawGraph 
CALL HIDEPEN 
PICTURE OFF 

OPEN "Clip:Picture" FOR OUTPUT AS #1 
PRINT #1,PICTURES; 

CLOSE#l 

ClipEnd: 

RETURN 


Inst : 


Come si usa questo programma? [K] 


WINDOW 2,, (10, 55)-(500,325),2 
PRINT " 

PRINT 


Istruzioni MacGraph" 


PRINT 


" Questo programma permette di rappresentare graficamente una 
lista di nu- H 


PRINT "meri positivi sullo schermo del Macintosh. Non può tracciare numeri,' 
negativi." 

PRINT "La lista può essere letta da un file o introdotta da tastiera II 
file deve esse-" 

PRINT "re un file di testo con i numeri registrati come se fossero stati I 
introdotti in " 

PRINT "risposta a un'istruzione input del BASIC. Si possono inserire i 
numeri usando " 

PRINT 'la voce Edit Data. Al termine della lista devi inserire un numero j 
negativo o" 

PRINT "lasciare una casella vuota." 

PRINT 

PRINT " Finita la lista dei numeri positivi, è possibile visualizzarla 1 
come grafico" 

PRINT a barre ° a torta scegliendo la voce appropriata nel menu 1 

GRAFICl• M 

PRINT "Nel caso del grafico a torta, i dati sono messi in scala in modo 
che la somma " 


PRINT "di tutti i numeri sia uguale a 360 aradi " 
CALL INITCURSOR 

BUTTON 1,1,"Continua", (190, 240) - (280, 260) 

WHILE DIALOG(0) <> 1: WEND 
BUTTON CLOSE 1: WINDOW CLOSE 2 
RETURN 


BasicQuit: •_ 
MENU RESET 
END 


- Ritorna al BASIC [L] 


DeskQuit: '_ 

MENU RESET 
SYSTEM 


- Ritorna al Finder. [M] 


******** subroutines ************************* 


DrawGraph: '.--- Disegna il grafico corrente. [N] 

CLS 

IF DNum - 0 THEN GOSUB NoData 

RETURN™”" <=> ° ™ EN ° N GTyPS G ° SUB LineGra P h ' BarGraph, PiePercent,Pielndex 


LineGraph: '_ 

GOSUB DrawFrame 


Disegna un grafico lineare. 


IF DNum > 1 THEN LineLen = XRange / (DNum-1) ELSE LineLen = 0 
CALL MOVETO(MinX,MaxY) 

FOR i = 1 TO DNum 

PointY = MaxY - Scale * GData (i) 

PointX = MinX+LineLen*(i-1) 

CALL LINETO(PointX,PointY) 

CIRCLE(PointX,PointY),2: CIRCLE(PointX,PointY),1 
size =2: IF (i MOD 5) = 0 THEN size = 4 
LINE (PointX,MaxY-size)-(PointX,MaxY+size) 

CALL DrawYNum(PointX,MaxY + 10,i,DNum) 

CALL MOVETO(PointX,PointY) 

NEXT i 
RETURN 


[ 0 ) 


BarGraph: '___ 

GOSUB DrawFrame 
BarWidth = XRange / DNum 
FOR i = 1 TO DNum 

barTop = MaxY - GData (i) * Scale 


Disegna un grafico, a barre. [P] 


(Continua) 
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Profilo del programma 


Definisce le costanti per finestre ed estensioni per grafici; 
definisce la finestra output [A] 

Predispone i menù MacGraph File e Graph; abilita gestione 
menù [B] 

Disegna titolo videata, inizializzando matrice dati [C.Z1] 

(Loop principale - abilita la gestione dei menù, gestiti in [E]) [D] 

WHILEvero 

WEND 

IF viene selezionato un menù [E] 

Disabilita (dim out) i menù MacGraph File e Graph 
Controlla quale menù sia stato selezionato 
Preleva il numero della voce selezionata 
IF la selezione non è nel menù Graph 
THEN elabora la voce del menù File 
ELSE disegna il grafico appropriato [N.S, come segue;] 

Grafico lineare [O.U.V.W.Y.X] 

Grafico a barre [P,U,V,W,Y,X] 

Grafico a torta con percentuali [Q,T,Y] 

Grafico a torta con valori [R,T,Y] 

Elaborazione voce del menù File: 

Apre: Apre un file e preleva i dati per la memorizzazione [F.Z2.Z3] 
Salva col nome: Salva i dati correnti in un file [G] 

Edit Data: Scrive la lista dei dati [H,Z2,Z,Z3] 

Edit Titoli: Scrive i titoli del grafico [l ) Z2,Y,Z,Z3] 

Grafico -> Clip: Copia il grafico corrente nel clipboard 
[J.S.N, e routines per grafici come sopra] 

Istruzioni: Mostra istruzioni [K] 

Esci e ritorna al BASIC [L] 

Esci e ritorna alla scrivania [M] 

Riabilitai menù 


La funzione EDIT FILE del Microsoft Basic consente un notevole 
risparmio: sostituisce tutte queste linee. 


Raggiungiamo poi la label CM3, do¬ 
ve Max è messo a m. 

Nel nostro esempio il valore di da¬ 
ti più grande, 348, è maggiore di 
m*0,6, ossia 240 (400*0,6), e quin¬ 
di può darsi che m non sia sufficien¬ 
temente oltre Max, e che perciò il 
grafico sia troppo stipato. Ci potreb¬ 
be essere spazio per aumentare m di 
t, aggiungendo un ulteriore interval¬ 
lo. L’istruzione IF aumenta m di t 
se m non è già al'incirca due volte t, 
o un multiplo di due volte t. In que¬ 
sto esempio, ove m è 400 e t è 100, 
m/t = 4, e 4 MOD 2 = 0, perciò m 
rimane a 400. Poi il controllo salta 
a CM3, dove anche Max è messo a 
400. Se osservate la figura 4 potete 
avere conferma che 400 è il valore 
della linea più alta del grafico. 

Quando CalcMax è finita il con¬ 
trollo toma a DrawFrame. La scala 
(la distanza che rappresenta un’unità 
di valore lungo l'asse Y o verticale) 
viene fissata dividendo l'estensione 
massima possibile dell’asse Y sullo 
schermo, YRange, per il valore Max 
calcolato in CalcMax (ricordate che 
questo non è più il valore di dati 
massimo, ma il valore più grande 
che starà nel grafico). 

Se esaminate le definizioni fatte a 
suo tempo in [A] potete vedere che 
YRange è uguale a MaxY - MinY - 
5. Nel nostro caso è 225 - 25 - 5, 
ossia 195. Dato che Max è stato po¬ 
sto a 400 la scala è 195/400, ovvero 
un po’ meno di 0,5. Questo signifi¬ 
ca che un punto nel grafico lineare 
(o la sommità di una barra nel grafi¬ 
co a barre) sarà, usando i valori del 
nostro esempio, alfincirca metà del 
suo valore in pixel dalla base del gra¬ 
fico. 

Viene ora richiamata la subroutine 
DrawYTicks [W] per disegnare le tac¬ 
che che fanno da punti di riferimento 
per i valori lungo l’asse Y. La su¬ 
broutine calcola dapprima l'interval¬ 
lo fra le tacche sull’asse Y. Anche in 
questo caso il valore di partenza, In- 
trvl, è la massima potenza di dieci 
inferiore a Max. Max è poi diviso 
per Intrvl. Se il risultato è inferiore 
a tre l'intervallo è troppo grande e 
non saranno disegnati tacche e nume¬ 
ri a sufficienza. In questo caso Intrvl 
è posto a Intrvl/5. 

Adesso è ora di disegnare le tacche 
e i numeri sull'asse Y. Il numero del¬ 
le tacche occorrenti è uguale al mas¬ 
simo più uno diviso per l'intervallo. 
Questo valore viene usato come li¬ 
mite del loop FOR-NEXT. Se osser¬ 


vate nuovamente la figura 3 potete 
vedere che ci sono cinque tacche, nu¬ 
merate da 0 a 400, e 400/100, ossia 
4 + 1 dà appunto 5 (abbiamo biso¬ 
gno dell'uno in più perché partiamo 
da zero). 

Moltiplichiamo i (il numero di tac¬ 
ca) per l’intervallo e poi lo convertia¬ 
mo in pixel moltiplicandolo per la 
scala. Dato che le coordinate di scher¬ 
mo sull’asse Y decrescono mano a 
mano che risaliamo l'asse, la quanti¬ 
tà che abbiamo calcolata viene sot¬ 
tratta da MaxY per ottenere la coordi¬ 
nata pixel Y. L'istruzione LINE dise¬ 
gna una linea orizzontale a partire da 
MinX-4 pixel a MaxX. Le tacche 
vengono disegnate cominciando la li¬ 
nea alla sinistra dell’asse Y. 

Adesso dobbiamo convertire il nu¬ 
mero corrispondente a ogni tacca in 
una stringa, per la facile formattazio¬ 


ne e la giusta stampa. Questo viene 
fatto con la funzione STR$, e il ri¬ 
sultato è assegnato a t$. Specifichia¬ 
mo l'INT di questo numero se l’inter- 
vallo è maggiore di uno per sbaraz¬ 
zarci delle frazioni che eventualmen¬ 
te si fossero insinuate quando abbia¬ 
mo diviso Intrvl per cinque. Le ope¬ 
razioni a virgola mobile tendono a 
produrre valori che non sono affatto 
interi, e INT è buona garanzia con¬ 
tro simili inconvenienti quando è im¬ 
portante avere risultati in numeri in¬ 
teri. L’istruzione MOVETO posizio¬ 
na la penna abbastanza a sinistra del¬ 
l’asse Y (MinX) per far posto alla 
lunghezza della stringa in pixel, e 
poi la stringa viene stampata. Quan¬ 
do tutte le linee, le tacche e i numeri 
sono stampati si esce dal loop e il 
controllo toma a DrawFrame [Ù]. 

DrawFrame centra e disegna il pri- 
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mo titolo, quello del grafico, tramite 
una chiamata a DrawStr. Il secondo 
titolo, che è visualizzato vertical¬ 
mente lungo l’asse Y, viene predi¬ 
sposto trovando il punto medio del¬ 
l’asse Y (MinY + (MaxY - Min- 
Y)/2) e poi sottraendolo dalla lun¬ 
ghezza della stringa in caratteri mol¬ 
tiplicata per le dimensioni del caratte¬ 
re in pixel. Questo dà il punto di par¬ 
tenza per la visualizzazione della 
stringa, che viene poi stampata un 
carattere alla volta da un loop FOR- 
NEXT che posiziona ogni carattere. 
Il terzo titolo viene semplicemente 
visualizzato sotto l'asse X da un'al¬ 
tra chiamata a DrawStr. Si noti che 
i numeri lungo l'asse X non sono 
stati ancora stampati; saranno realiz¬ 
zati come parte della routine grafica 
vera e propria. 

Finalmente ultimata, DrawFrame 
toma a LineGraph, e siamo pronti a 
disegnare il grafico vero e proprio. 
Prima di tutto viene determinata la 
lunghezza dei segmenti di linea che 
collegano i punti dei dati; si tratta 
anche deH'intervallo con il quale sa¬ 
ranno mostrati le tacche e i numeri 
lungo l'asse X. Supponendo che ci 
sia almeno un valore di dati (DNum 
> 1) la lunghezza di un segmento è 
la lunghezza totale dell'asse X 
(XRange, determinato in [A]), divisa 
per il numero dei punti di dati meno 
uno. Il "meno uno" è necessario 
perché, come potete vedere in figura 
3, occorrono solo DNum - 1 linee 
per collegare DNum punti. Nel no¬ 
stro esempio ci sono tre segmenti 
che collegano quattro punti di dati. 

Dopo che la penna è stata posizio¬ 
nata nel punto d’origine del grafico 
(MinX, MaxY) (ricordate ancora che 
MaxY è la base dell’asse Y) viene u- 
sato un loop FOR-NEXT per dise¬ 
gnare il grafico. Prima vengono cal¬ 
colate le coordinate X e Y del punto 
di dati corrente. La coordinata Y vie¬ 
ne determinata moltiplicando la sca¬ 
la (determinata a suo tempo in Dra¬ 
wFrame) per il valore del punto di 
dati corrente e sottraendo il risultato 
dalla coordinata Y dell'ultimo punto 
determinato (per il primo segmento 
1'”ultimo punto" è naturalmente l'ori¬ 
gine). 

La coordinata X viene determinata 
moltiplicando la lunghezza della li¬ 
nea per il numero del punto di dati 
corrente meno uno e poi aggiungen¬ 
dolo alla coordinata X dell'ultimo 
punto, in quanto le coordinate X au¬ 
mentano mano a mano che ci si spo¬ 


sta lungo il grafico (anche qui l’"uno 
di meno" è dovuto al fatto che il pri¬ 
mo punto viene tracciato sull'asse 
Y, vale a dire con una coordinata X 
di zero). Il secondo punto viene trac¬ 
ciato con una coordinata X di MinX 
+ lunghezza della linea, il terzo pun¬ 
to a MinX + lunghezza della linea * 
2, e così via. Poi si usa un'istruzio¬ 
ne LINETO per disegnare il segmen¬ 
to di linea, e un'istruzione CIRCLE 
per disegnare il circolo nero che se- 


PiePercent: ’- 

Percent = true 
GOSUB PieGraph 
RETURN 


gna la posizione del punto dati. L’ef¬ 
fetto di un cerchio nero pieno si ot¬ 
tiene disegnando prima un circolo 
con raggio due e poi al suo interno 
un circolo con raggio uno. 

Successivamente si disegna la tac¬ 
ca corrispondente lungo l'asse X. Si 
usa l’istruzione IF con MOD 5 per 
disegnare una linea ogni cinque lun¬ 
ga il doppio, per facilità di riferimen¬ 
to. Viene richiamato il sottopro¬ 
gramma DrawYNum [X] per visua- 


Disegna un grafico a torta con % [Q] 


Pielndex: 1 - Disegna un grafico a torta con i valori. [R] 

Percent = fals 
GOSUB PieGraph 
RETURN 

NoData: 1 _ Dice all'utente: Nessun dato per il grafico. [S] 

CLS 

CALL TEXTFONT(0) 

CALL MOVETO(255, 100) 

CALL DrawStr ("Nessun dato in memoria . Introduci prima i dati con'Edit Data'.") 
CALL TEXTFONT(1) 

RETURN 

PieGraph: '- Disegna un grafico a torta. [T] 

r% (0) = CircleY-CircleR: r%(2) = CircleY+CircleR 
r%(1) = CircleX-CircleR: r% (3) = CircleX+CircleR 
CALL PAINTOVAL(VARPTR(r%(0 ) )) 

TotalUnits = 0: Theta = 0 
FOR Index = 1 TO DNum 

TotalUnits = TotalUnits + GData (Index) 

NEXT Index 

UnitAngle = (2 * PI) / TotalUnits 
CALL MOVETO(CircleX, CircleY-CircleR-30) 

CALL TEXTFONT(0): CALL DrawStr (TitleS(1)) 

CALL TEXTFONT(1) 

FOR Index = 1 TO DNum 

EndPtX = CircleX + CircleR * SIN(Theta) 

EndPtY = CircleY - CircleR * COS(Theta) 

LINE(CircleX,CircleY)-(EndPtX,EndPtY),30 
MidTheta = Theta + (UnitAngle * GData(Index) )/2 
MidPtX = CircleX + (CircleR*l.15) * SIN(MidTheta ) 

MidPtY = CircleY - (CircleR*l.15) ' * COS(MidTheta) 

CALL MOVETO(MidPtX,MidPtY) 

IF NOT Percent THEN t$ = STR$(GData(Index) ) 

IF Percent THEN t$ = STRS(CINT ((GData(Index) *100)/TotalUnits)) +"%" 

CALL DrawStr(t$) 

Theta = Theta + (UnitAngle * GData (Index) ) 

NEXT Index 
RETURN 

DrawFrame: • - Disegna il telaio per un grafico a barre o lineare. [U] 

Max = 0 • Trova il numero più grande. 

FOR i = 1 TO DNum 

IF Max < GData (i) THEN Max = GData (i) 

NEXT i 

GOSUB CalcMax 

Scale = YRange/Max • Calcola la Scala. 

LINE (MinX,MinY) - (MinX,MaxY) 

LINE (MinX,MaxY) - (MaxX,MaxY) 

GOSUB DrawYTicks 
CALL TEXTFONT(0) 

CALL MOVETO(MinX + (MaxX-MinX) /2,MinY - 15) 

CALL DrawStr(TitleS(1)) 

y = MinY+(MaxY-MinY)/2-INT(LEN (TitleS(2) ) /2) *16 
FOR i - 1 TO LEN (TitleS (2) ) 

CALL MOVETO(MinX-60,y): PRINT MIDS (TitleS (2) ,i,1) ; 
y = y+16 
NEXT i 

CALL MOVETO (MinX + (MaxX-MinX)/2, MaxY + 42) 


BarX = (i-1)*BarWidth+MinX 

LINE(BarX,MaxY)-(BarX+BarWidth-5,barTop),,bf 
MidPt = BarX+ (BarWidth-5)/2 
size = 2: IF (i MOD 5) = 0 THEN size = 4 
LINE (MidPt,MaxY)-(MidPt,MaxY+size) 

CALL DrawYNum(MidPt,MaxY+10,i,DNum) 

NEXT i 
RETURN 
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lizzare i numeri di riferimento lungo 
l'asse X. Questa subroutine tiene 
conto di un potenziale problema: 
che cosa fare se ci sono molti dati da 
visualizzare? Se questo è il caso ci 
saranno troppi numeri corrisponden¬ 
ti perché possano stare lungo l'asse 
X, o quanto meno è probabile che i 
numeri si addensino e si scontrino. 
Per far fronte a questa situazione Dra- 
wYNum prima controlla se ci sono 
più di venti numeri da disegnare. In 

CALL DrawStr (Title$(3) ) 

CALL TEXTFONT(1) 

RETURN 


SUB DrawStr(temp$) STATIC 

CALL MOVE(-((LEN(temp$)/2)*7) , 8) 
PRINT temp$; 

END SUB 


caso affermativo un AND con la fun¬ 
zione MOD fa sì che venga disegna¬ 
to il numero solo per un punto di da¬ 
ti ogni cinque (questo non accade nel 
nostro esempio, in quanto abbiamo 
solo quattro punti di dati). 

La routine di chiamata è responsa¬ 
bile della trasmissione di questo nu¬ 
mero massimo a DrawYNum: que¬ 
sto numero è disponibile come 
DNum. DrawYNum, a sua volta, af¬ 
fida a DrawStr il disegno effettivo 


• [Y] 


del numero, e DrawStr provvede alla 
centratura. Infine LineGraph sposta 
la penna nel nuovo punto X,Y, che 
diventa l'origine del successivo se¬ 
gmento di linea quando l'opzione 
FOR è stata completata. 

• Il grafico a barre. E' la subrouti¬ 
ne BarGraph [P] a sovraintendere al 
disegno di questo grafico. La mag¬ 
gior parte delle procedure che hanno 
parte nella creazione del grafico a bar¬ 
re è già stata esaminata nella sezione 
precedente. Anche qui la subroutine 
grafica principale richiama DrawFra- 
me, che calcola la scala, e richiama 
DrawYTicks per disegnare le tacche 
e i numeri di riferimento per l'asse 
Y, esattamente come nel grafico li¬ 
neare. 

Dopo che il controllo è tornato a 
BarGraph viene calcolata la larghez¬ 
za delle barre. Essa è semplicemente 
l'estensione dell'asse X (XRange) di¬ 
visa per il numero dei punti di dati 
(DNum). Un loop FOR-NEXT dise¬ 
gna le barre, le tacche dell'asse X e i 
numeri, completando così il grafico. 
Per ciascun punto di dati viene calco¬ 
lata la sommità della barra (la sua 
coordinata Y) esattamente come è 
stata calcolata la posizione Y di un 
punto nel grafico lineare. La coordi¬ 
nata X della barra è calcolata come è 
stata calcolata la coordinata X di un 
punto nel grafico lineare; la sola dif¬ 
ferenza è che si usa la larghezza della 
barra anziché la lunghezza della 
linea. 

La barra viene disegnata mediante 
una semplice istruzione LINE con 
l'opzione bf. La barra è disegnata un 
po' più stretta dell'intera larghezza di 
barra (BarWidth - 5) in modo che re¬ 
sti un po' di spazio bianco a separare 
le barre. Viene determinato il punto 
medio della barra sull'asse X, e vie¬ 
ne disegnata la tacca sull’asse X. Co¬ 
me nel caso del grafico lineare una 
tacca ogni cinque viene disegnata di 
lunghezza doppia. Anche qui si ri¬ 
chiama DrawYNum per disegnare il 
numero. 

• Il grafico a torta. Per quanto ci 
siano due opzioni di grafico a torta 
(torta con % e torta con valori) la so¬ 
la differenza fra le due è costituita 
dai numeri usati per etichettare le fet¬ 
te. Se si sceglie nel menù Graph la 
torta con %, viene richiamata la su¬ 
broutine Pie-Percent [Q]. La subrou¬ 
tine mette = vero la variabile di flag 
booleana Percent, poi richiama la su¬ 
broutine Pie-Graph [T] perché dise¬ 
gni il grafico. Se si sceglie nel me- 


EditFields: '_ Mostra i campi introdotti. [Z] 

OK = false 
WHILE NOT OK 

diag = DIALOG (0) 

IF diag = 1 THEN OK = (DIALOG(1) = 1) 

IF diag = 2 THEN eField = DIALOG(2) 

IF diag <> 7 AND diag <> 6 THEN NotTab 
eField = eField MOD MaxFields + 1 
EDIT FIELD eField 
NotTab: 

WEND 

RETURN 

InitData: '_ Inizializza la matrice dei dati. [ZI] 

DNum = 0 

FOR i = 1 TO MaxData 
GData(i) = -1 
NEXT i 
RETURN 

OpenWindow: '- Apre la seconda finestra. [Z2] 

WINDOW 2,, (Wind2L,Wind2T)-(Wind2L+Wind2W,Wind2T+Wind2H),2 
BUTTON 1,1,"OK",(Wind2W-70,Wind2H-30)-(Wind2W-10,Wind2H-10) 

RETURN 

CloseWindow: '- Chiude la seconda finestra. [Z3] 

WINDOW CLOSE 2 ' Chiude la seconda finestra. 

CLS ' Pulisce la prima finestra. 

RETURN 


CalcMax: '- Calcola il valore massimo per la scala del grafico. [V] 

temp = IO* (INT(FN LoglO(Max))) 
m = temp 

WHILE m < Max: m = m+temp: WEND 
IF Max < (m* . 6) THEN CM1 

IF ((INT(m/temp) MOD 2) <> 0) THEN m=m+temp 
GOTO CM3 
CM1 : 

temp = temp/ 10 

WHILE m > Max: m = m - 2*temp: WEND 
m = m + 2*temp 
CM3 : 

Max = m 
RETURN 

DrawYTicks: '- Disegna le tacche e i numeri sull'asse y. [W] 

Intrvl = 10 ''INT (FN LoglO (Max) ) 

IF (Max/Intrvl) < 3 THEN Intrvl = Intrvl / 5 
FOR i = 0 TO INT(Max/Intrvl +. 5) 
j = MaxY - Scale * (i*Intrvl) 

LINE(MinX-4,j)-(MaxX,j) 

IF Intrvl > 1 THEN t$ = STR$(INT(i*Intrvl) ) 

IF Intrvl <= 1 THEN t$ = STR$(i*Intrvl) 

CALL MOVETO(MinX - LEN(t$)*8-4,j + 4) 

PRINT t$; 

NEXT i 
RETURN 

SUB DrawYNum(MidX,MidY,Num,MaxNum) STATIC '[X] 

IF (MaxNum > 20) AND (Num MOD 5) <> 0 THEN NoYnum 
CALL MOVETO(MidX,MidY) 

CALL DrawStr(STR$(Num)) 

NoYnum: 

END SUB 
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nù Graph la torta con valori effettivi 
viene richiamata la subroutine Pieln- 
dex [R]. Questa subroutine mette il 
flag Percent = falso e poi richiama 
PieGraph. Vi potreste chiedere per¬ 
ché si usino due subroutine quando 
la sola differenza fra le due è il modo 
in cui impostano un flag. Si sarebbe 
potuto far comparire un'unica su¬ 
broutine (chiamata magari Pie) in en¬ 
trambi gli "slot” di torta nell’istru¬ 
zione ON GOSUB di DrawGraph. 
La subroutine potrebbe impostare il 
flag Percent secondo il valore di 
GType, il tipo di grafico scelto. Ciò 
funzionerebbe senz’altro, e abbrevie¬ 
rebbe il codice. Ha però lo svantag¬ 
gio che se si volessero aggiungere 
caratteristiche a un tipo di grafico a 
torta ma non all’altro si dovrebbe 
mettere nella subroutine generale 
Pie una logica più complicata. Di¬ 
sponendo di subroutine separate per 
i due tipi di torta si possono aggiun¬ 
gere caratteristiche a uno di essi sen¬ 
za influire sull'altro. Talvolta il van¬ 
taggio di risparmiare qualche linea di 
codice è superato dalla flessibilità in¬ 
sita in una nitida strutturazione. 

Vediamo adesso come faccia con¬ 
cretamente la subroutine PieGraph a 
disegnare il grafico a torta. A questo 
scopo dovete spostare la vostra atten¬ 
zione dai rettangoli e dalle rette dei 
grafici a barre e lineari al mondo dei 
cerchi e degli archi, cioè al mondo 
della trigonometria, che certo non è 
il passatempo preferito di tutti. Ri¬ 
cordate comunque che proprio non è 
necessario che comprendiate la trigo¬ 
nometria perché possiate usare o ad¬ 
dirittura modificare la routine di crea¬ 
zione di grafici a torta. 

Il primo passo è molto semplice. 
Usando i confini dell’area grafica cir¬ 
colare originariamente definita in 
[A] PieGraph istituisce un normale 
rettangolo QuickDraw. Un’istruzio¬ 
ne PAINTOVAL viene usata per di¬ 
segnare un cerchio pieno, la torta. 
Poi un loop FOR-NEXT somma tut¬ 
ti i valori dei dati presenti in GData. 
Per questo valore, TotalUnits, viene 
diviso 2 * PI. Ricorderete forse dalle 
lezioni di geometria che quest’ultima 
quantità è la circonferenza di un cer¬ 
chio espressa in radianti, una misura 
standard di distanza lungo la circonfe¬ 
renza di un cerchio. L’unità di di¬ 
stanza così ottenuta è simile alla sca¬ 
la calcolata per i grafici lineari e a 
barre: sarà la distanza a rappresentare 
un’unità di valore nei dati. 

Poi il titolo del grafico viene posi¬ 


zionato 30 pixel sopra la sommità 
del cerchio e disegnato da una chia¬ 
mata a DrawStr (si noti che Cir- 
cleX, CircleY sono le coordinate di 
schermo del centro del cerchio, e Cir- 
cleR è il raggio del cerchio). Per i 
grafici a torta viene usato solo un ti¬ 
tolo generale del grafico, dato che 
questi grafici non vengono disposti 
su assi X e Y come quelli lineari e 
a barre. Adesso è ora di disegnare le 
fette della torta. Il metodo di base 
per trovare il punto terminale fino al 
quale verrà tracciato un determinato 
segmento usa la formula trigonome¬ 
trica seguente. Partendo dal centro 
del cerchio, e dato un angolo, Teta, 
in radianti: 

coordinata X del punto terminale = 

centro X + (raggio del cerchio * 

SEN(Teta)) 

coordinata Y del punto terminale = 

centro Y + (raggio del cerchio * 

COS(Teta)) 

Conosciamo le coordinate del cen¬ 
tro del nostro cerchio (CircleX, Cir¬ 
cleY) e il suo raggio (CircleR). La 
variabile Theta (è questa la grafia del 
codice) viene usata per tener traccia 
dell'angolo, che aumenta mano a ma¬ 
no che vengono tracciati i punti dei 
dati e che ci spostiamo in senso ora¬ 
rio attorno al cerchio. L'angolo è ini¬ 
zialmente posto a zero, dato che per 
convenzione il grafico a torta comin¬ 
cia nella posizione delle ore 12. Se 
confrontate la formula generale ora 
descritta con le prime due istruzioni 
all'interno del loop principale FOR- 
NEXT vedrete come MacGraph usi 
questa formula per calcolare un pun¬ 
to terminale (EndPtX, EndPtY) a o- 
gni passaggio per il loop. Anche qui 
la coordinata X viene aggiunta a 
quella del centro del cerchio e la coor¬ 
dinata Y è sottratta dalla coordinata 
Y del centro. Questo perché in un 
cerchio sullo schermo del Mac i va¬ 
lori della coordinata Y decrescono 
quando le coordinate X aumentano (e 
viceversa). Il nostro grafico corri¬ 
sponde al quadrante in alto a destra 
della tradizionale griglia cartesiana 
che forse ricordate dagli studi di geo¬ 
metria. 

Adesso un’istruzione LINE dise¬ 
gna una linea bianca dal centro del 
cerchio al punto terminale. Dopo di 
ciò il compito successivo in agenda 
è etichettare il segmento con un nu¬ 
mero, o una percentuale o un valore, 
a seconda del tipo di grafico a torta 
che si sta generando. Per determinare 
la posizione viene utilizzata la for¬ 


mula descritta sopra, con la differen¬ 
za che usiamo un angolo, MidTheta, 
che viene calcolato moltiplicando 
l'angolo unitario per la metà del va¬ 
lore del dato che viene tracciato e ag¬ 
giungendolo al corrente valore di 
Theta. Dato che abbiamo bisogno 
che il numero compaia esattamente 
a mezza via sull'arco della fetta di 
torta, ci occorre un angolo che miri 
a quel punto medio. Inoltre dato che 
i numeri sono stampati un po' all'e¬ 
sterno del cerchio il raggio del cer¬ 
chio dev'essere moltiplicato per 1,15 
per ottenere un "cerchio invisibile" 
abbastanza grande perché vi si possa¬ 
no mettere i numeri. Due istruzioni 
IF controllano se si vogliono le per¬ 
centuali e formulano la stringa 
perché sia stampata in conformità. 
Viene richiamata DrStr per disegnare 
il numero. Quando si esce dal loop 
FOR-NEXT è stato disegnato il gra¬ 
fico completo. 

Suggerimenti 

Usate MacGraph per tracciare qual¬ 
siasi tipo di dati nella vostra attività 
commerciale, nella vostra professio¬ 
ne o nei vostri studi. Dato che Ma¬ 
cGraph è veloce e facile da usare po¬ 
tete tradurre rapidamente in forma vi¬ 
siva molti tipi di dati statistici. Co¬ 
piate i grafici sul clipboard e abbelli¬ 
teli con MacPaint, poi incorporateli 
nei documenti realizzati con il vo¬ 
stro word processor. Una facile modi¬ 
fica sarebbe far salvare a MacGraph 
in un file su dischetto i titoli corren¬ 
ti assieme ai dati. Si potrebbe anche 
aggiungere una routine (o scrivere 
un programma separato in Basic) 
che catturi un grafico e lo restringa, 
o magari disegni diversi diagrammi 
su un'unica videata. Naturalmente 
potete anche aggiungere una seconda 
riga al titolo del grafico, cambiare 
la torta in modo che sia bianca con 
linee nere e fare molte altre modi¬ 
fiche. Dato che la struttura di pro¬ 
grammazione di programmi intera¬ 
mente pilotati da menù come il Ma¬ 
cGraph è semplice è cosa facile ag¬ 
giungere o cambiare una o più opzio¬ 
ni senza influire sulle altre. 

^Questo programma è disponibile^ 
su dischetto. L'elenco, i prezzi 
e le modalità d'ordine di questo e 
degli altri dischetti disponibili sono 
riportati nella rubrica Disk Service. 
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© By Nibbio e Applicando 



Ecco un elenco dei computer shop presso i quali è possibile 
abbonarsi ad Applicando, acquistare una copia, cercare un numero arretrato... 


VALLE D'AOSTA 

Aosta: Informati que sas, Av. Conseil 
des Commis 14 - Quart (AO): Infor- 
matique 2, Reg. America 31. 

PIEMONTE 

Alba (CN): Centro computer, Via Pa- 
ruzza 2 - Alessandria: Sistemi Bit, 
Via Ghilini 27- Asti: Gestione Dati 
srl, Via B.Buozzi 45 - Biella (VC): 
Consul Computer srl, Via delle Rose 
2; Informatica Biella sas, Piazza S.Pao- 
lo 1/b - Borgomanero (NO): All 
Computer, Corso Garibaldi 106 - Cu¬ 
neo: Thema Inform.Distribuita sas, 
Via Statuto 10 -Domodossola (NO): 
Nuova Elettronica, Via Giovanni 
XXin 68 - Novara: D.R. srl, Viale 
XX Settembre 19; D.R. srl, Via More- 
ra 3; SPA srl, Via A. Canobbio 16/A - 
Pinerolo (TO): Elaborazione Dati 
Pinerolo, Viale Montebello 6 - Tori¬ 
no: A.B.Computer sas, Corso Grosse¬ 
to 209; Beliucci Benedetto, Via Papaci- 
no 23; Cominfor Sistemi sas, Corso Te- 
lesio 4/B; Digitalsync snc, Corso Mo- 
ncalieri 303; Dimensione Personal, 
Via Bertola 22/e; GE.NE.CA srl, Via 
XX Settembre 51; Hobby Elettronica, 
Via Saluzzo 11/F-G-H; Omicron Com- 
puters snc, Corso Duca degli Abruzzi 
14; Pinto G.Componenti elettronici, 
Corso Principe Eugenio 15bis; Softec 
Computer srl, Via Juvara 24; Tecno- 
system computer shop, Corso Francia 
12; Tekno Computers srl, Via Mada¬ 
ma Cristina 31/c. 

LIGURIA 

Genova: Computer Center, Via S.Vin¬ 
cenzo 129r; Sals Informatica spa, Via 
D'Annunzio 2 e Viale B.Partigiane 
132r - Genova Sampierdarena: 
Computer Center sas, Via Storace 4r - 
Lavagna (GE): Raffo Linea Ufficio, 
Corso Genova 100 - La Spezia: So¬ 
ffine srl, Via Piave 19 - Rapallo 
(GE): Raffo Linea Ufficio snc, Via 
della Libertà 130 -Sanremo (IM): 
La Bottega del Computer, Via Martiri 
Libertà 180 - Savona: Briano snc, 
Corso Tardy e Benech 20r - Sestri Po¬ 
nente (GE): All Computer sas, Via 
C. Menotti 136r. 

LOMBARDIA 

Almè (BG): Elcod, Viale Italia 45/A 
Assago (MI): Basic Computers, Cen¬ 
tro Commerciale Milanofiori- Berga¬ 
mo: Il Mondo dell'Informatica, Via ri¬ 
tentino 8; Studio 15 srl, Via Quarenghi 
60 - Brescia: Alfa Computer, Via 
Bassi 26; Brescia Computers srl, Via 
Malta 12; Il Computer srl, Via Solferi¬ 
no 5; Personal Data, Via Brozzoni 4 - 
Como: Accaesse Informatica srl, Via 
Acquanera 46; D.S.I. srl, Via Dottesio 
8; Irpe Informatica srl, Via Cadorna 
l/a - Cremona: Archimede, Via Pale¬ 
stra 11/b - Gallarate (VA): Irpe 
Computer srl, Va Pegoraro 8 - Gavar- 
do (BS): Bit Shop, Via G.Quarena 
120 - Lecco (CO): Computers Lecco 
snc, Via N.Bixio 18/b; Datamation, 
Viale Turati 40 - Lissone (MI): Com- 
putsrlandia, Via Martiri Libertà 72 - 
Mantova: Antek Computer sas, Via 
Cavour 69 - Melegnano (MI): L'A¬ 
mico del Computer, Via Castellini 25 - 
Milano: A.G.Informatica srl, Via G. 
Silva 49; All'Informatica Shop, Via 
Lazzaretto 2; All'Informatica srl, Via 
Vigevano 8 ; Communications Enginee¬ 
ring, Piazza Firenze 4; Deltron srl, 
Viale Gran Sasso 50; Esprit, Via Ber- 
amini 13; Happy System, Piazza Diaz 
; Il Tempio del Computer, Via Patta- 
ri 2; Indico srl, Via Marco d'Agrate 1; 
Indico srl,Via Pier Capponi 12; Infor¬ 
mation Technology, Via dei Bossi 7 
ang. Broletto; La Bottega Informatica 
srl, Via Turati 6; Macan sas, Via Bro¬ 
letto 39; Microtech Sistemi, VialePia- 
" ve 7; Polisisterni,Via Dema 19; SH 


Computer srl, Viale Montenero 33; 
Small Business Computers, Via Vitru- 
vio 38; Softec Computer, Viale Jenner 
23 - Monza (MI): ESI srl. Via Cava- 
lotti 11; Nikom Electronics, Via Asia- 
o 7 - Pavia: M.A.S.H. Computer 
ystems, Via della Rocchetta 5; Senna 
Gianfranco snc, Via Calchi 5 - S. Anto¬ 
nio Mantovano (MN): Antek Com¬ 
puter sas, Via Manzoni 49 -Trezzano 
sul Naviglio (MI): Personal Compu¬ 
ter Shop, Via L da Vinci 36 -Varese: 
IRPE srl, Via Carantani 1 - Villasan¬ 
ta (MI): Computer Area show room, 
Via Carducci 2; Computer Area snc, 
Via Volta 27/a. 

TRENTINO 

Bolzano: Dataplan, Sparkasse Strasse 
9 - Merano: Computer Market, Via S. 
Maria del conforto 22 - Trento: 
SI.GE. sas, Via Piave 28. 
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Viale Libertà 79; Electronic Center, 
Viale Martelli 17 - Trieste: Compu- 
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(GO): Tecno Power Elettronica, Via 
Marconi 19 - Udine: Bit Computers, 
Via Pozzuolo 107; PS Elettronica sas, 
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Bassano dei Grappa (VI): A-Tre 
snc, Piazza Firenze 23 - Conegliano 
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G.Piovesana 32; De Marin Computers, 
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92 -Mirano (VE): Saving Elettroni¬ 
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ni 53 - Montecchio Magg.(VI): Ef- 
fecomp (Esa), Piazza Carli 2 - Pado¬ 
va: Capovilla & C. sas, Galleria Scro- 
vegni 5; Computer Service srl, Via 
Beethoven 3; EDP Sistemi srl, Via Bor¬ 
romeo 13 - Rovigo: Computer Servi¬ 
ce sas, Via Cavallotti 12 Treviso: A5 
Computers srl, Borgo Cavour 37/a - 
Venezia: Personal Computer, Canna¬ 
regio 5894- Verona: ARMU srl, Via 
Teatro Filarmonico 3; Chip Computer 
(Esa), Stradone S. Fermo 8; Esacomp 
srl, ViaRoveggia 43; MOS 80 sas, Via 
Germania 21; MOS 80 Computer 
Shop, Via del Pontere 2; MOS 80 Per¬ 
sonal Computers, Largo Marzabotto 
21- Vicenza: Abc Informatica srl, 
Contrà Porta Padova 19; Abc Informa¬ 
tica srl, Viale S.Lazzaro 19; Sevi sas, 
Via S.Agostino 87 -Villafranca 
(VR): Studio 4, Corso V.Emanuele 
65. 

EMILIA ROMAGNA 

Bologna: Ceda Minicomp sr, Piazza 
Aldrovandi 2/2; Computer Systems, 
Via Ercolani 10/d; Edp Sistemi BO, 
Viale Pietramellara 61/F; Lucky 
Systems, Via Fari ni 33/a; Sercom, Via 
B. da Carpi 9/b - Carpi (MO): Iret 
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ra: Mazzacurati Claudio, Viale Ca¬ 
vour 186/188; Soc. Termomeccanica, 
Via Tito Speri 5 ; Tecnomeccanica, Via 
Garibaldi 195 - Fidenza (PR): Archi- 
mede, Via Vito Aimi 2; RCM Compu¬ 
ter, Via Comini Malpeli 11 - Fio- 
renzuola d'Arda (PC): Centro 
Computer, Corso Garibaldi 125/a - 
Forlì: A-Z Computer srl, Via Cignani 
7; Icof Impianti srl, Via Masetti 56; 
Kronos, Via O. Regnoli 30 - Imola 
(BO): Computers srl, Via S.P.Grisolo- 
go 38 -Modena: Canalgrande Infor¬ 
matica, Corso Canalgrande 29; Masetti 
Elettronica srl. Via Emilia Centro 211- 
Parma: Computek sas, Piazzale Boito 
5; Iret spa, Via Cavallotti 3; RCM 
Computer, Va Farmi 51/a - Piacen¬ 


za: PC Personal Computer, Via Chiap¬ 
poni 42; RCM Computer, Corso V. E- 
manuele 96 - Reggio Emilia: Com¬ 
puter Center srl, Via D.Alighieri 4; E- 
saprogetti, Via F.Filzi 2; Iret spa, Via 
Emilia S.Stefano 32 - Rimini: Compu¬ 
ter Line, Via Coletti 61 - Sassuolo 
(MO): Iret Sassuolo, Via Pretorio 65 - 
Scandiano (RE): Informatica 

System, Via Statale 13/a - Viserba di 
Rimini (FO): Computer Center, Via 
Pallotta 25/a. 

TOSCANA 

Arezzo: Sisted srl, Via Galvani 22; Si- 
sted srl, Piazza Risorgimento 10 - Bor¬ 
go a Buggiano (PT): CO-DI snc, 
Via 24 Maggio 119 - Firenze: Anfrel 
Informatica sas, Via Masaccio 50 e Via¬ 
le Gramsci 10/r; Centro Servizi srl, 
Via Petrocchi 24; Computer Line srl, 
V iale Spartaco Lavagnini 20; Elettroni¬ 
ca Cento Stelle srl, Via Cento Stelle 
5/b; Line spa. Via G.Di Vittorio 10; 
Paoletti Ferrerò, Via il Prato 40/42r; 
P.T.E. snc, Via Duccio da Buoninse- 
na 60; Soluzioni EDP srl, Corso dei 
intori 39r; Tuttocomputer (centro 
servizi), Via Panzani 36/38r - Forte 
dei Marmi (LU): Blu Data, Via Mo- 
rin 95 - Grosseto: C.I.S.I.D. Compu¬ 
ter snc, Via Papa Giovanni XXIII 4 - 
Livorno: Livinform 2, Scali delle 
Cantine 62; Livinform srl, Via Roma 
8 (piazza Attias) - Massa: Euro Com¬ 
puter sas, Piazza C. Bertagnini 4 - 
Montecatini (PT): Co-Di snc, Via 1 
Maggio 20/22, Fraz.Margine Coperta - 
Perignano (PI): Memor Informatica 
srl, Via Togliatti 2/4/8 - Piombino 
(LI): Centro Ufficio sdf, Via F.Fer- 
rer 37/39 - Pisa: Data Pori due, Via 
Sancasciani 35; Società Elettronica Tir¬ 
rena, Via Fucini 20 - Pistoia: Inter 
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no (AR): I.C.S. srl, Via Garibaldi 
46. 

UMBRIA 
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gno (PG): Linea Informatica snc, Via 
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tica 49. 
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Via Consacchi 10; Cosmic srl, via del¬ 
le Gondole 168/170-Ostia (Roma): AG 
Computer Systems srl, Via A. Carabel¬ 
li 108/112 - Roma: AG Computer 
Systems srl, Via G.Lanza 101/105; 
Biotech srl, Via S.Valentino 18; Bit 
Computers 2, Viale Ionio 333/335; Bit 
Computers 3, Via Nemorense 14/16; 
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NBP Elettronica, Via Don Bosco 
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Computers srl, Via C. Goldoni 5 -Va¬ 
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Boiano (CB): Iannotti Giovanni, Lar¬ 
go Duomo 14 - Campobasso: Infor¬ 
matica Molisana, ViaB. Buozzi 12. 

CAMPANIA 

Avellino: ICC Elettronica srl, Via de¬ 
gli Imbimbo 126 - Barano d'Ischia 
(NA): Matterà Antonio, Via Roma 61- 
Benevento: Masone Informatica, Via¬ 
le dei Rettori 57- Caserta: Sistel 
Computers, Corso Trieste 124 - Napo¬ 
li: Computer Systems srl, Via Puccini 
19; Golden Computer srl, Via Miche¬ 
langelo 7; IC International Computer 
srl, Via Nuova S.Rocco 62/P.co Solea- 
do; IC International Computer, ViaPo- 
sillipo 130; La Barbera Carlo sas, Via 
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System, Via E.Bottiglieri 19; SEDA 
srl, Via Parmenide c/olannone. 
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Matera: Lucana Sistemi srl, Via Don 
Minzoni 4. 
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Bari: Auditorium 3, Piazza Massari 
15; Ciesse spa, Via Re David 176/d; 
L.e L. Computers srl, Largo 2 Giugno 
4-B rindisi: SIC srl, ViaS .Giovanni Bo¬ 
sco 109 - Foggia: ISI srl, Via Matteot¬ 
ti 83 - Lecce: Quasar Informatica srl, 
Via Giacomo Arditi 11 - Molfetta 
(BA): Auditorium 3, Piazza Garibaldi 
12/a - Putignano (BA): Amore & 
Computer, Via GJLaterza 28-Taran- 
to: Elettrojolly Centro srl, Via De Ce¬ 
sare 13. 


Catanzaro: Ce Sim sas, Via Carlo V 
174/180; Visicom srl, Via Minniti Ip¬ 
polito 10 - Cosenza: Micro System 
sdf, Via Roma 75 - Gioia Tauro 
(RC): Tecnocomp snc, Via Nazionale 
SS 111/117 - Reggio Calabria: 
GLM Informatica snc, Via De Nava 98 
- Spezzano Albanese (CS): Iannibel- 
li, ViaStragolia 48. 

SICILIA 

Catania: Carici Francesco, Via Ala 
57/59; Centro Informatica sdf, Via Fi¬ 
renze 211 ; Computer Shop, Via E. Or¬ 
lando 164; SI.EL Informatica snc, 
Piazza Galatea 2 - Messina: CEE srl, 
Via Industriale 116; Cubeta srl, Via 
Cardines 12/14; Libreria Bonanzinga, 
Via dei Mille 110 - Milazzo (ME): 
Tectron Tecnologie Elet. srl, Via dei 
mille - Palermo: Computer Shop (In- 
f.Comnx), Via Notarbartolo 23/bc; In¬ 
formatica Commerciale spa, Via No¬ 
tarbartolo 26 - Ragusa: Sosyco, Corso 
V.Veneto 597 -Trapani: Gualano Eu¬ 
genio, Via Virgilio 11. 

SARDEGNA 

Cagliari: SE, Via S.Lucifero 85 - Sas¬ 
sari: Bajardo, Viale Italia 16. 
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In tutte le attività aziendali il telefono svolge un ruolo fondamentale: 
perché dunque non ottimizzare per quanto è possibile la sua 
funzione? Non con la solita agenda elettronica, però: 
ecco un programma che oltre a gestire velocemente tutti i dati 
necessari per telefonare sa anche comporre il numero desiderato, 
senza nemmeno farvi alzare la cornetta. 


Un drive 
per il telefono 


Indubbiamente ogni miglioria ap¬ 
portata al servizio telefonico in uffi¬ 
cio si riflette immediatamente sotto 
il profilo della produttività e della 
qualità del lavoro. 

Appunti, nomi, indirizzi e numeri 
telefonici: strumenti indispensabili, 
che purtroppo, però, solo raramente 
sono aggiornati e rapidamente repe¬ 
ribili. Succede spesso di dover perde¬ 
re tempo prezioso per trovare un nu¬ 
mero, scoprendo poi che oltre tutto 
è stato cambiato. La soluzione a que¬ 
sto problema può essere una buona 
agenda elettronica, ma perché accon¬ 
tentarsi quando si può avere uno stru¬ 
mento più completo? 

Pronto PC mette assieme tutti i 
dati necessari a chi usa il telefono, li 
presenta e stampa velocemente, ma 
si colloca al di là delle consuete pre¬ 
stazioni da agenda elettronica poiché 
fa risparmiare tempo provvedendo 
automaticamente alla composizione 
del numero telefonico. 


Come lavora 

Pronto PC è composto da un soft¬ 
ware che permette, nello stesso tem¬ 
po, di gestire una rubrica telefonica 
con le normali funzioni di data base, 
e di collegarsi a un piccolo box che, 
attraverso una normale interfaccia 
RS232 rende possibile la compo¬ 
sizione automatica dei numeri tele¬ 
fonici. E’ un data base orientato al 
servizio di rubrica telefonica compu¬ 
terizzata, ohe comunica amichevol¬ 
mente in italiano, sa gestire le nor¬ 
mali funzioni di data base (in¬ 


troduzione, visualizzazione, aggior¬ 
namento e cancellazione delle regi¬ 
strazioni) e offre tre caratteristiche as¬ 
solutamente innovative: 

• composizione automatica del nu¬ 
mero prescelto (proveniente da data 
base o introdotto manualmente); 

• possibilità di visualizzazione on 


line della registrazione relativa all’u¬ 
tente chiamato, con particolare ri¬ 
guardo al campo note (3 righe da 80 
colonne), modificabile con semplici 
comandi di edit, costituendo un vero 
e proprio block notes di appunti uti¬ 
li da tenere presenti durante la chia¬ 
mata è aggiornabili in funzione della 


Periferiche intelligenti per il telefono 

Si chiama Multichannel e permette di associare a un impianto telefonico interco¬ 
municante una serie di periferiche legate al mondo della telefonia, gestibili da 
computer con un software pilota. E' prodotto dalla Safnat, leader nel settore dei tele¬ 
foni intercomunicanti, e rappresenta il primo esempio di automatismo di operazioni 
telefoniche su un impianto non dipendente da centralino. "Il mondo della telefonia 
si divide in due grandi settori", spiega l’Ingegner Cavallaro, responsabile del serivi- 
zio della Safnat, "gli Impianti intecomunicanti, destinati a professionisti e piccole a- 
ziende, ai quali non fa capo un centralino e che possono soddisfare esigenze di 10 
linee urbane e di 30 apparecchi interni, e i centralini, studiati per le grosse aziende. Il 
grosso problema è che il primo settore è al di fuori di ogni standard:Te società del set¬ 
tore gestiscono i tasti di servizio per le chiamte e tutti gli altri "optional" a modo pro¬ 
prio impedendo così ogni forma di office-automation comune a più impianti." 

Lasciando il sistema funzionante nella sua normalità, senza cioè dover dedicare 
particolari linee a particolari servizi ausiliari, Multichannel permette nello stesso tem¬ 
po l'attacco di apparecchi unificati estraendo una modalità comune per pilotarli. Co¬ 
me è possibile vedere nella figura a ogni linea derivata è possibile associare una va¬ 
sta gamma di periferiche come una stampante dedicata (per la documentazione de¬ 
gli addebiti o dei rilievi statistici del traffico, per esempio), oppure collegare un termi¬ 
nale facsimile a una o più linee urbane (senza doverne più riservare una particolare 
per tale servizio), o, ancora, collegare una segreteria telefonica o un risponditore au¬ 
tomatico a più linee urbane, scambiare dati telefonicamente con un altro elaborato¬ 
re, fino ad associare un personal computer che, per mezzo di un software pilota, è 
capace di gestire una qualsiasi delle periferiche sopra citate per ogni linea derivata a 
cui viene collegato con Multichannel. Ma come avviene tutto ciò ? 

"Ogni sistema telefonico intercomunicante raggiunge gli apparecchi attraverso 
due linee" spiega Cavallaro," una è dedicata ai numeri da comporre, la tastiera e il di¬ 
sco, per intenderci, ed è sviluppata con una pura tecnica di telefonia, l'altra gestisce 
tutti i servizi ausiliari comandabili dagli altri tasti presenti sull'apparecchio. Questa 
seconda linea deriva da una tecnolgia informatica, con dei veri e propri microproces¬ 
sori che gestiscono le funzioni relative a ogni tasto. E' su questa linea che intervie¬ 
ne Multichannel, ed è questa linea la croce della compatibilità tra i diversi sistemi. Per 
la nostra serie Spazio abbiamo sviluppato i tasti funzione in un modo che ci ha per¬ 
messo di raccogliere in un manualetto la simulazione della pressione dei tasti, pro¬ 
grammabile con un personal computer. Questo vuol dire che a un programmatore 
non chiediamo di diventare un esperto in telefonia, ma solo di studiare le nozioni 
dell'apparecchio come le studierebbe l'utente che lo utilizza normalmente". 

Per ulteriori informazioni è possibile rivolgersi direttamente alla Safnat, via Garofa¬ 
lo 31, Milano. Telefono 02/276862. 
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conversazione svolta. In pratica ci si 
può costruire la base dati dei propri 
contatti personali; 

• possibilità di classificare i nomi¬ 
nativi per categorie (clienti, fornito¬ 
ri, amici, e predisposizione di uno 
scadenziario ecc.). Ciascuno può co¬ 
sì costruire nel suo computer le pro¬ 
prie pagine elettroniche personali 
bianche e gialle. 

La selezione di uno specifico uten¬ 
te dell’elenco telefonico avviene digi¬ 
tando il nominativo desiderato o an¬ 
che soltanto la parte iniziale della 
chiave di ricerca: sul video compari¬ 
ranno dieci linee che presentano il 
nominativo richiesto, i quattro che 
lo precedono e i cinque che lo seguo¬ 
no. Spostando il cursore si seleziona 
un nominativo aH'intemo della pagi¬ 
na, con possibilità di consultare (a 
pagine di dieci linee) anche il resto 


dell’elenco. Selezionato l’utente di in¬ 
teresse si possono visualizzare tutti 
i dati e le note (modificabili in li¬ 
nea) e richiedere la composizione au¬ 
tomatica del numero telefonico. 

Per effettuare l'invio del numero te¬ 
lefonico non occorre alzare nemme¬ 
no il microfono. Il calcolatore impe¬ 
gna la linea, invia il numero e su un 
altoparlante ausiliario si ascolta la ri¬ 
sposta. Dopo circa 10 secondi si 
può alzare la cornetta per rispondere 
oppure tutto termina richiudendo la 
linea. Al termine della telefonata, 
poi, questa può essere documentata 
in stampa. 

Nato per migliorar l'operatività di 
chi lavora frequentemente al telefo¬ 
no, il sistema può essere collegato o- 
pzionalmente ai comuni amplificato- 
ri telefonici di tipo "viva voce", con¬ 
sentendo così all'operatore di non do¬ 
ver utilizzare la cornetta e di poter la¬ 
vorare a mani totalmente libere. Di¬ 
gitando all'interno del numero telefo¬ 
nico (in fase di introduzione) un aste¬ 
risco, si ha in corrispondenza, duran¬ 
te la composizione del numero, l'in¬ 
troduzione di una pausa, consenten¬ 
do così sia la corretta composizione 


dei numeri in teleselezione sia l'uti¬ 
lizzo da apparecchi collegati alla rete 
esterna tramite centralini privati 
(pausa dopo lo zero di richiesta linea 
esterna). Con particolare software ap¬ 
plicativo si può effettuare la chiama¬ 
ta automatica con inserzione di un 
modem. In tal modo si può per e- 
sempio predisporre un programma 
che raccolga automaticamente dati 
dalle filiali di un'azienda, o invii dei 
messaggi a un insieme di utenti. 

La pagina 
di evidenza 

L'elenco telefonico automatico 
consente in una pagina di evidenza fi¬ 
no a un massimo di dieci nominati¬ 
vi e relativi numeri telefonici, appar¬ 
tenenti o meno al data base, a titolo 
di promemoria, è possibile così co¬ 
struire un elenco di rapida consulta¬ 
zione delle chiamate da effettuare. 
Con questa opzione si presenta una 
pagina dedicata in cui compaiono tut¬ 
ti i nominativi prescelti, che posso¬ 
no essere eliminati dalla lista su co¬ 
mando dell’operatore. 

Telefonare a un nominativo presen¬ 
te in pagina di evidenza risulta parti¬ 
colarmente facile, dato che, richieden¬ 
do di effettuare la chiamata, il siste¬ 
ma provvede a presentare i dati e a 
comporre il numero corrispondente 
con un numero inferiore di manovre. 

La funzione di stampa consente di 
ottenere un elenco telefonico alfabeti¬ 
co di tutti i nominativi presenti nel¬ 
l’elenco, corredati da tutte le informa¬ 
zioni memorizzate nelle registrazio¬ 
ni con spazio per aggiunta di anno¬ 
tazioni a mano. Si può inoltre avere 
lo stesso elenco per tutti i nominati¬ 
vi associati a una determinata catego¬ 
ria e l'elenco di tutte le categorie. 
Particolarmente importante è la 
stampa dell'elenco telefonico alfabeti¬ 
co dei soli nominativi e numeri tele¬ 
fonici in formato ridotto (tascabile). 

Pronto PC funziona su Apple Ile 
con stampante, due drive, espansio¬ 
ne per la memoria a 128 Kb e video 
a 80 colonne; necessita inoltre di un 
posto piastra libero in Apple Ile. E' 
reperibile presso i principali compu¬ 
ter shop, soprattutto se associati a 
ComputerNet, oppure presso la Del- 
tron, viale Gran Sasso 50, 20131 
Milano, telefono 02-2360015 o 
2367469, e costa 299.000 lire più 
Iva. 

Mario Magnani 



Multichannel utilizzato su impianto intercomunicante serie Spazio. 

1 Unità centrale da cui partono le linee derivate. 2 Normale linea derivata associata a 
un apparecchio. 3 Multichannel associa un personal computer a una linea telefonica 
per chiamare e rispondere automaticamente, inviare o registrare messaggi. 4 Linea 
derivata con segreteria telefonica. 5 Con un personal computer è possibile gestire su 
una linea derivata una qualsiasi periferica associata al mondo della telefonia. 6 Senza 
bisogno di Multichannel sono collegati due apparecchi a una stessa linea derivata. 7 
Anche un Macintosh può essere associato e gestire l’invio e la ricezione di 
documenti di un facsimile. 8 Senza essere gestito da un personal computer un 
terminale facsimile può essere collegato a una o più linee urbane. 9 Stampante 
collegata per documentazione automatica delle telefonate e relativi addebiti. 
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Per chi 
comincia 



N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple //. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull’inglese (per chi possiede 
Apple //e e //c), dovreste veder comparire 
sullo schermo il segno "]", chiamato curso¬ 
re, o prompt, in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè I’Apple- 
soft Basic). 

3) Battere sulla tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo Particolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizializzare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri—inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso) ; ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all’inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d’una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : PRINT 
CHR$(7):NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
che è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall’ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e Pultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SA VE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
20 FOR J = 1 TO 5 : P R I NT 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null’al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple //e o un //c assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell’ultima parola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 
20 e 30. 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SAVE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 


computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po’ più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l’errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LO AD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. Il computer vi segnalerà, riga per 
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riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l’er¬ 
rore commesso e ribattere correttamente 
l’intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo all’interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l’Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po’ la lingua madre dell’Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L’As- 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l’assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L’Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL—151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300:A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il ’300’ indica 
una locazione di memoria e i due punti 
dicono all’Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308-4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 



1 

*RINGER PROGRAM 


2 

ORG 

$300 


3 

BELL EQU 

SFBDD 

0300: A2 05 

4 

LDX 

ns 

0302: 20 DD FB 

5 

LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 

END RTS 



Listato 3 


Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL-151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0 03 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300:A2 05 Return 
302:20 DD FB Return 
305 :CA Return 
306:F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra i 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l'intero listato, 
schiacciate CTRL-C Return per tornare al 
livello BASIC indicato dal segno ’]’. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SA VE, i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 



versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER, A$300, L$C 


dove A$300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All’inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l’indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
l’indirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell’usci¬ 
ta del Ile) sia per il ProDOS (sistema opera¬ 
tivo fornito con il Ile). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAD, 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere, prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l'uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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PROGRAMMI 
HARDWARE 
E ACCESSORI 




Nuova 
edizione 
aggiornata 
e ampliata 


Stai per acquistare un 

personal computer Apple? 

Vorrai sapere che cosa puoi far¬ 
ci. Questo volume è un aiuto indi¬ 
spensabile, una guida ragionata 
e completa di tutti i programmi, 
l’hàrdware e gli accessori dispo¬ 
nibili in Italia. Prima di fare il tuo 
acquisto non puoi non consultar¬ 
lo, perché solo se avrai a disposi¬ 
zione il programma, o i program¬ 
mi, e le periferiche che ti interes¬ 
sano, la tua scelta non ti lascerà 
deluso. 


Hai appena acquistato un 
personal computer Apple? 

Senza questa raccolta di pro¬ 
grammi e le numerosissime se¬ 
gnalazioni di periferiche hardwa¬ 
re e di accessori non potrai mai 
sapere quali e quanti utilizzi po¬ 
trai farne. 


Possiedi già da tempo un 
personal computer Apple? 

Allora non c’è bisogno di dirti 
quanto può essere prezioso que¬ 
sto libro: sai già che il tuo compu¬ 
ter, senza programmi e senza un 
hardware adeguato, è come 
un’auto senza benzina e senza 
le ruote. E poiché non c’è limite 
alla fantasia e all’inventiva, con¬ 
sultando questa guida scoprirai 
utilizzi impensati per il tuo perso¬ 
nal. Utilizzi che ti permetteranno 
nel lavoro, nel tempo libero, nel 
gioco o nello studio, di essere 
sempre il più aggiornato, il più 
organizzato, il più soddisfatto... 


In questa nuovissima edizione 
delle Pagine del Software per 
Apple trovi elencati, con una ap¬ 
profondita descrizione, tutti i pro¬ 
grammi e le periferiche hardware 
disponibili in Italia. 


Le Pagine del Software e 
dell’Hardware sono un 
supplemento di Applicando, il 
mensile per i personal computer 
Apple. Acquistarle singolarmente 
costa 18.000 lire. Per chi si abbona 
ad Applicando sono in regalo. 


Desidero ricevere, senza aggravio di spese postali, Le Pagine del Software , con la seguente formula (segnare la casella 
di proprio interesse): 

□ 18.000 lire per ricevere l’edizione 1985-86 di 

Le pagine del Software e dell’Hardware per Apple 

□ 60.000 lire per ricevere 10 numeri di Applicando e in regalo l'edizione 1985-86 di 

Le pagine del Software e dell’Hardware per Apple 


COGNOME E NOME 
VIA. 


CAP. CITTÀ 


PR0V 



Ritagliare, compilare e 
spedire a: Edltronlca Srl, 
Corso Monforte 39, 
20122 Milano. 


□ Allego assegno non trasferibile di L.intestato a Editronica Srl 

□ Allego ricevuta di versamento di L. sul CC postale N. 19740208 intestato a Editronica Srl 

Corso Monforte 39, 20122 Milano. 

□ Pago fin d’ora con la mia carta di credito Bankamericard N scadenza 

Data.Firma . 
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GRAFICA 


Il realismo della grafica tridimensionale dipende dalla prospettiva 
e dalla rimozione delle linee nascoste. 

Come ottenere effetti esatti sullo schermo ad alta risoluzione? 
Ecco alcune essenziali spiegazioni, corredate da qualche esempio 
applicativo chiaro ed esauriente. 


Prospettiva 
e tre dimensioni 


Sul numero scorso di Applicando 
è stata pubblicata la prima parte di 
questo servizio, che esaminava la 
proiezione e la prospettiva applicate 
alla rappresentazione grafica delle 
funzioni di due variabili (z = 

f(x,y)). 

L’articolo di queste pagine, invece, 
spiega come ottenere differenti punti 
di vista di una scena, con la rimozio¬ 
ne delle linee nascoste. 

Per usare il programma dovete 
provvedere un file sequenziale conte¬ 
nente i punti, e una descrizione delle 
facce e dei segmenti di linea o degli 
spigoli deH'immagine. La tecnica 
per la creazione di questo file è de¬ 
scritta nel programma Creazione file 
alla fine dell’articolo. 

Per illustrarla sono stati fomiti 
due esempi. A prima vista il proble¬ 
ma della rimozione delle linee na¬ 
scoste sembra facile. In fin dei conti 
qualsiasi bambino di cinque anni 
non farà vedere, quando gli si chiede 
di disegnare una casa, il lato poste¬ 
riore delfedificio. 

Ma per cercare di insegnare a un 
computer a fare la stessa cosa che fa 
un bimbo di cinque anni occorre pre¬ 
disporlo perché sia preciso ed effi¬ 
ciente. 

Prima di tutto il computer deve sa¬ 
pere dove sono i punti da congiunge¬ 
re in un mondo appiattito a due di¬ 
mensioni. 

In secondo luogo deve determinare 
quali facce di un oggetto sono oppo¬ 
ste all’osservatore e siano invisibili. 
E infine deve sapere quali parti di un 
segmento sono occultate dalle facce 
più vicine all’osservatore. 


Il programma Linee nascoste vi¬ 
sualizza le immagini nella pagina 2 
dell’alta risoluzione. 

E’ necessario a questo scopo forni¬ 
re un file sequenziale strutturato co¬ 
me segue: 

1. (Numero dei punti, NP), (nume¬ 


ro degli spigoli, NE), (numero delle 
facce, NF) 

2. Ciascun punto (1 = 1,2...,NP); 
X(l), Y(l), Z(l) 

3. Ciascuna faccia (1 = 1,2...,NF): 
(numero dei punti sulla faccia), 
(punto 1 sulla faccia)...,(ultimo pun- 



V 

□ 


Figura 1. La casa. 
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to sulla faccia) Commento: indicati 
in senso orario visti dal davanti. 

4. Ogni spigolo o segmento che 
sia possibile vedere (I = 1,2,...,NE) 
(punto 1 sulla linea), (punto 2 sulla 
linea), (faccia 1 o zero),(faccia 2 o 
zero). 

Esempio 1 - contenuto di un file 
denominato CASA visibile in 
figura 1. 

Cambiando la linea 300 in 300 T 
= U ed eliminando la linea 240 si 
può ottenere una proiezione isometri¬ 
ca che è l'equivalente di una veduta 
prospettica dall'infinito. Il tempo di 
esecuzione del programma dipende 
dal punto di vista ed è in linea gene¬ 
rale proporzionale al numero delle 
facce, moltiplicato per il numero de¬ 
gli spigoli. Il file SCENA richiede 
da tre a sei minuti per una veduta ti¬ 
pica. 

Il file viene letto una volta sola e 
il programma vi permetterà di cam¬ 
biare il punto di vista prima del com¬ 
pletamento e (volendo) di stampare 
una copia su carta. 

Si può ottenere una versione più 
rapida o ricorrendo a un compilatore 
Basic, o traducendo in un linguag¬ 
gio compilato come il Pascal, o tra¬ 
ducendo direttamente in linguaggio 
assembler (compito al quale occorre 
dedicare almeno una settimana della 
propria esistenza). 


Tutte le facce 
passo per passo 

L'algoritmo utilizzato dal program¬ 
ma svolge le seguenti operazioni: 

1. Legge il file di dati sequenziale. 

2. Trasforma i punti in sistema di 
coordinate prospettiche. 

3. Saggia la scala per determinare 
rimmagine di dimensioni massime 
(non è stato fatto alcun clipping). 

4. Per ciascuna faccia saggia la vi¬ 
sibilità trovando un vettore normale 
alla superficie e determina le esten¬ 
sioni massime della faccia nel nuo¬ 
vo sistema di coordinate UVW. 

5. Pulisce lo schermo per la pagi¬ 
na 2 della grafica. 

6 Per ciascuno spigolo (o segmen¬ 
to non su una faccia) fa i passi da 7 
a 11. 

7. Trova le facce adiacenti. Se so¬ 
no entrambe invisibili salta questo 
spigolo o segmento perché deve esse¬ 
re invisibile. 

8. Per ciascuna faccia fa i passi 9 
e 10. 

9. Se il segmento non penetra nel 
cubo delimitante la faccia (la spiega¬ 
zione è più avanti) salta questa fac¬ 
cia e procede alla faccia successiva. 

10. Esamina tutti gli incroci del 
segmento con ciascun spigolo della 
faccia insieme con i restanti fram¬ 


menti. Se sono occultati dalla faccia 
si verificherà una di queste quattro 
possibilità: 

a. Cancellazione del frammento. 

b. Cancellazione a sinistra. 

c. Cancellazione a destra. 

d. Cancellazione nel mezzo, con la 
creazione di due frammenti. 

Nota: Si parte dal presupposto di u- 
na faccia convessa, limitazione che 
può essere superata come indicato 
sotto. 

11. Traccia ogni frammento visi¬ 
bile della linea rimasto dopo i passi 
9 elO. 

12. Suona il campanello e dà occa¬ 
sione di procurarsi un nuovo punto 
di vista, e toma al passo 2. 

Veniamo ora a una spiegazione 
più dettagliata dell'algoritmo: 

1. Viene letto il file F$ creato in 
precedenza dall'utente. 

2. I punti sono trasformati da 
(X,Y,Z) in (U,V,W) come si vede 
nella figura 2. 

Sia XE,YE,ZE la posizione del¬ 
l'occhio di un osservatore che guarda 
l'origine (0,0,0). Sia K un valore 
compreso fra 0 all'origine e 1 all’oc¬ 
chio (qui K = 0.5. Comunque qual¬ 
siasi valore di K < 1 darà un'immagi¬ 
ne equivalente a causa della messa in 
scala). Quindi se: 


T= (1-K)/ [1-(X*XE+Y*YE+Z*ZE) 
/ (XE*XE+YE*YE+ZE*ZE)] 


U, V e W diventano: 


U= T*(XE* Y-YE*X)/SQR(XE* XE 
+YE*YE) 


Y=T*[(XE*XE+YE*YE)*Z-(X*XE 

+Y*YE)*/SQR[(XE*XE+YE*YE)* 

(XE*XE+YE*YE+ZE*ZE)] 


Z= -T*(XE*X+YE*Y+ZE*Z). 
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Listato 1 


DOS 3.3 


Apple Ile 


Apple Ile 


30 

REM 

LINEE NASCOSTE 


440 

V(I) 

= D * (VH - V(I) ) 


40 

REM 

COPYRIGHT 1986 


450 

W(I) 

= D * W(I) 


50 

REM 

BY APPLICANDO & 


460 

NEXT 



60 

REM 

MICROSPARC, INC 


470 

REM 

* CALCOLA IL VETTORE 

NORMALE * 

70 

REM 



480 

PRINT 

T$: FOR I = U TO NF 


80 

D$ = 

CHR$ (4): ONERR 

GOTO 1600 

490 

Il = 

F% (I,U):I2 - Il + N - 

U 

90 

MX = 

1E6 : MN = - MX : U 

= 1 :Z = 0:EPS = 1E - 3:T 

500 

PI = 

FP% (II) :P2 = FP%(Il + 

U):P3 = FP% (Il 


100 

110 


120 

130 


140 

150 

160 

170 


180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


(C) 1986 BY A 
INPUT "NOME 


INPUT X(I) ,Y(I) ,Z (I) : NEXT 
I = U TO NF: INPUT N:F%(I,Z) 
- F%(I,U) + N:Il = F% (I,U): I 


$ = "STO PENSANDO" 

DIM U (150), V (150), W (150) , E% (150,4), F% (50,1), F 
P%(150) 

DIM EU(50,1),EV(50,1),EW (50,1),S (18,1),T (18,1 
),V% (50),X(150),Y(150),Z(150) 

REM * LETTURA FILE * 

TEXT : HOME : VTAB 23: PRINT " 

PPLICANDO & MICROSPARC": VTAB 2: 

FILE:";F$ 

PRINT D$"VERIFY"F$: PRINT D$"OPEN"F$: PRINT D 
$"READ"F$ 

INPUT NP,NE,NF 
FOR I = U TO NP: 

F% (U,U) = U: FOR 
= N:F% (I + U,U) 

2 - Il + N - U 
FOR J = Il TO 12 
FOR I = U TO NE: 

),E% (1,4) : NEXT 
PRINT D$"CLOSE"F$ 

REM * PUNTO DI VISTA * 

PRINT "LINEA DI OSSERVAZIONE:": INPUT "XE,YE, 
ZE=";XE,YE,ZE 

Q1 = XE * XE + YE * YE:Q2 = SQR 
QR (Q1 + ZE * ZE):Q4 = 1 / (Q2 * 

INPUT "K=" ; K 

UL = MX:UH - MN:VL = MX:VH = MN 
REM *CALOOLA TRASFORMAZIONE * 

FOR I = U TO NP 
A = X (I) :B = Y (I) :C = Z (I) 

W(I) = - (XE * A + YE * B + ZE 

T = (U - K) / (U + W(I) / (Q3 

U(I) = T * (XE * B - YE * A) / 

V(I) = T * (Q1 * C - (A * XE + 

* Q4 


: INPUT FP%(J): NEXT : 
INPUT E% (1,1),E%(I,2) , 


NEXT 
E% (I, 


(Ql):Q3 
Q3) 


C) 
Q3 ) ) 


Q2 

B 


YE) 


ZE) 


330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 


W(I) = T 
IF U(I) < 

IF U(I) > 

IF V(I) < 

IF V(I) > 

NEXT 

REM * METTE IN 
DU = 279 / (UH 
INT T$ 

D = DU: IF DV < 
FOR I = U TO NP 


W(I) 

UL THEN UL 
UH THEN UH 
VL THEN VL 
VH THEN VH 


U(I) 

U(I) 

V(I) 

V(I) 


SCALA L'IMMAGINE * 

• UL):DV = 191 / (VH - VL): PR 


DV 


U(I) 


D 


(U(I) - UL) 


+ U 

+ U) 

510 D = (U(P3) - U (P 2 ) ) * (V (P2) - V(P1)) - (U(P2 
) - U (PI) ) * (V (P3) - V (P2) ) 

520 REM * VERIFICA LA VISIBILITÀ DELLA FACCIA * 
530 V%(I) = U: IF D > - EPS THEN V%(I) = Z: GOTO 
670 

540 EU (I,Z) = U (PI):EU (I,U) =U(P1) 

550 EV ( I, Z ) = V(P1) :EV(I,U) =V(P1) 

560 EW(I,Z) = W (PI):EW (I,U) =W(P1) 

570 REM * CALCOLA LE ESTENSIONI * 


580 

FOR K = 

II 

. + U TO 

12 




590 

J = FP%(K) 






600 

IF 

U(J) 

< 

EU(I,Z) 

THEN 

EU (I, Z) = U(J) : 

GOTO 

6 


20 








610 

IF 

U(J) 

> 

EU(I,U) 

THEN 

EU (I, U) = U(J) 



620 

IF 

V(J) 

< 

E V ( I, Z ) 

THEN 

EV (I, Z) = V(J) : 

GOTO 

6 


40 








630 

IF 

V(J) 

> 

E V ( I, U ) 

THEN 

E V ( I, U ) = V(J) 



640 

IF 

W(J) 

< 

EW(I,Z) 

THEN 

EW (I, Z) = W(J) : 

GOTO 

6 


60 








650 

IF 

W(J) 

> 

EW (I,U) 

THEN 

EW ( I, U ) = W(J) 




INIZIALMENTE TUTTI I SEGMENTI SONO VIS 


660 NEXT 

670 NEXT 

680 REM * 

IBILI * 

690 FOR I = U TO NE:E%(I,Z) = U: NEXT 

700 REM * IMPOSTA IL MODO GRAFICO * 

710 REM * PER CIASCUN SEGMENTO #1 * 

720 HGR2 : HCOLOR= 3 

730 FOR I = U TO NE 

740 IF E% (I,Z) = Z THEN 1550 

750 FI = E% (1,3):F2 = E%(I,4) 

760 IF F2 = Z THEN 790 

770 REM * SAGGIA LA VISIBILITÀ' * 


(Continua) 


3. Trova i valori minimo e massi¬ 
mo U e V nel sistema di coordinate 
trasformato e confronta la scelta di 
mettere in scala U con 0 a 279 e V 
con 0 a 191. Adesso sceglie la scala 
più grande possibile che starà sullo 
schermo senza clipping. 


4. Era importante mettere i nume¬ 
ri dei punti delle coordinate della fac¬ 
cia in ordine orario al fine di poter 
trovare un vettore normale (figura 
3). 

Dato che l'osservatore si trova a- 
desso a U=0, V=0 e W negativo (fi¬ 


gura 4) se la componente W del 
vettore normale N è negativa, la fac¬ 
cia è visibile. 

Se la componente W risulta in¬ 
vece positiva la faccia è invisibile 
per l'osservatore. Inoltre a questo 
punto si devono trovare le estensio¬ 
ni massima e minima di ciascuna 
faccia (figura 5). 

5. Imposta HGR2 - la pagina 2 Hi- 
Res - e HCOLOR = 3 (bianco). 

6. E' necessario un loop FOR per 
ciascun segmento I. 

7. Nel passo 4 è stata predisposta 
una matrice V%(I) per indicare se la 
faccia I non è visibile (0) o è visibi¬ 
le (1). 

Quando un segmento è uno spigo¬ 
lo fra due facce adiacenti se entrambe 
le facce sono invisibili è invisibile 
anche il segmento. 

8. E’ necessario un loop FOR nidi¬ 
ficato per ciascuna faccia J. 

9. Se il segmento non penetra nel 
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780 IF V%(FI) = Z AND V%(F2) - Z THEN 1550 
790 NS = 1:SL = Z:SH = U:S(U,Z) = SL:S(U,U) = SH 
800 PI = E% (I,U):P2 = E%(I / U + U) :U1 = U(P1):V1 = 
V(P1):W1 = W (PI ) :U2 = U (P 2 ) : V2 = V(P2):W2 = 
W(P2):Al = U2 - U1:A4 = V2 - VI 
810 REM * TROVA MASSIMO E MINIMO IN OGNI COORDIN 
ATA SUL SEGMENTO * 

820 IF U1 < U2 THEN UL = U1:UH = U2: GOTO 840 
830 UL = U2:UH = U1 

840 IF VI < V2 THEN VL = V1:VH = V2: GOTO 860 
850 VL = V2:VH = VI 

860 IF W1 < W2 THEN WL = W1:WH = W2: GOTO 890 

870 WL = W2:WH = W1 

880 REM * PER CIASCUNA FACCIA #J * 

890 FOR J = U TO NF 

900 REM * EVITA LE FACCE INVISIBILI * 

910 IF V%(J) = Z THEN 1430 

920 REM * EVITA LE FACCE DELIMITANTI * 

930 IF FI = J OR F2 = J THEN 1430 

940 REM * CONFRONTA CON LE ESTENSIONI * 

950 IF WH - EW{J / Z) < EPS THEN 1430 

960 IF UH - EU(J,Z) < EPS THEN 1430 

970 IF EU(J,U) - UL < EPS THEN 1430 
980 IF VH - EV(J,Z) < EPS THEN 1430 

990 IF EV( J , U ) - VL < EPS THEN 1430 

1000 REM * TEST D'INTERSEZIONE * 

1010 SI = MX:S2 = MN:N = F%(J,Z):NN = F%(J,U):D1 
= Z:D2 = Z 

1020 FOR K = U TO N 

1030 RI = FP%(NN + K - U):R2 = FP%(NN + K) 

1040 IF K = N THEN R2 = FP% (NN) 

1050 A2 = U(RI) - U(R2) : A3 = U(R1) - U1 

1060 A5 = V(RI) - V(R2):A6 = V(R1) - VI 

1070 DT = Al * A5 - A2 * A4 

1080 IF DT < EPS AND DT > - EPS THEN 1150 

1090 S = (A3 * A5 - A2 * A6) / DT 

1100 E = (Al * A6 - A3 * A4) / DT 

1110 IF E < - EPS OR E > U + EPS THEN 1150 

1120 D = (W(RI) + (W(R2) - W(RI)) * E) - (W1 + (W‘ 
2 - Wl) * S) 

1130 IF S < SI THEN DI = D:S1 = S 

1140 IF S > S2 THEN D2 = D:S2 = S 

1150 NEXT 

1160 REM * LA FACCIA E* DI SPIGOLO PER L'OSSERVA 
TORE? * 

1170 IF ABS (SI - S2 ) < EPS THEN 1430 
1180 SJ = S1:DJ = DI: IF SJ < Z THEN SJ = Z:T = S 
1 / (SI - S2) :DJ = DI + T * (D2 - DI) 

1190 SK = S2 : DK = D2: IF SK > U THEN SK = U*T = ( 

SI - U) / (SI - S2):DK = DI + T * (D2 - DI) 

1200 REM * QUESTO SEGMENTO E* OCCULTATO? * 

1210 IF DJ > = - EPS AND DK > EPS THEN 14 


1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

14 90 
1500 
1510 
1520 
1530 
1540 
1550 
1560 

1570 

1580 

1590 

1600 

1610 

1620 


30 

IF SJ < SL + EPS AND SK > SH - EPS THEN E%(I 
/Z) = Z:J = NF: GOTO 1430 

REM * C'E' UN INTERSEZIONE DEL SEGMENTO E D 
ELLA FACCIA? * 

IF SK < EPS OR SJ > U - EPS THEN 1430 

REM * CONTROLLA LE LISTE DI FRAMMENTI A CON 

FRONTO CON SJ, SK * 


c = z: 


FOR K = U 

TO NS 




SI = S (K, Z) : S2 = 

S (K, U) 




IF SJ 

< 

SI + EPS 

THEN 1350 




IF SJ 

> 

S2 - EPS 

THEN 1340 




IF SK 

> 

S2 - EPS 

THEN 1330 




C = C 

+ 

U:T (C,Z) 

= SI : T (C, U) 

= SJ 



c = c 

+ 

U:T (C,Z) 

= SK:T(C,U) 

« S2 : 

: GOTO 

1380 

c = c 

+ 

U:T (C,Z) 

= S1:T(C,U) 

= SJ: 

: GOTO 

1380 

c = c 

+ 

U:T(C,Z) 

= SI:T(C,U) 

= S2 : 

: GOTO 

1380 

IF SK 

< 

SI + EPS 

THEN 1340 




IF SK 

> 

S2 - EPS 

THEN 1380 




c = c 

NEXT 

+ 

U:T (c,Z) 

= SK:T(C,U) 

= S2 



IF C = 


l THEN J = 

: NF:E%(I,Z) 

= Z: 

GOTO 1430 

NS = C 

:SL = T(U,Z):SH = T (C, 

U) : FOR K = 

U TO 


NS 


S (K, Z) - T(K,Z) :S(K,U) = T(K,U) 

NEXT 

NEXT 

REM * SALTA I SEGMENTI INVISIBILI * 

IF E% (I,Z) = Z THEN 1550 

REM * PER OGNI SEGMENTO VISIBILE ESEGUE UN 
HPLOT DEI FRAMMENTI * 

FOR K = U TO NS 

SI = S(K,Z):S2 = S(K,U):T1 = U - S1:T2 « U - 
S2 

LU - U1 * TI + U2 * SI 

RU = U1 * T2 + U2 * S2 

LV = VI * TI + V2 * SI 

RV = VI * T2 + V2 * S2 

HPLOT LU,LV TO RU,RV 
NEXT 
NEXT 

REM * PERMETTE ALL'UTENTE DI BATTERE ’S’ PE 
R INTRODURRE UNA NUOVA VISUALE * 

PRINT CHR$ (7): GET A$: IF A$ = "S" THEN T 

EXT : POKE 34,2: HOME : GOTO 220 

PRINT : TEXT : POKE 34,0: HOME : END 

REM * SEMPLICE ROUTINE PER LA GESTIONE DEGL 

I ERRORI * 

PRINT D$"CLOSE"F$ 

PRINT "NUMERO LINEA:"; PEEK (219) * 256 + P 
EEK (218) 

PRINT "ERRORE NUMERO:"; PEEK (222): TEXT 


cubo adiacente o è più vicino del la¬ 
to anteriore del cubo (più vicino) 
quella faccia deve essere saltata, in¬ 
quanto il segmento non può essere 
nascosto dalla faccia. 

Così si risparmierà molto tempo, 
evitando calcoli di intersezione non 
necessari. 

10. Quando il segmento è nel cu¬ 
bo delimitante può darsi che non pe¬ 
netri effettivamente nella faccia, co¬ 
me in figura 6a, o che vi penetri 
come in figura 6b. 

Esaminiamo l'intersezione delle li¬ 
nee A-B e C-D (figura 7). La linea 
A-B è rappresentata in forma parame¬ 
trica: (1 - S)*A + S*B, dove A e B 
sono in ciascuna delle coordinate 
componenti U, V e W. 

Analogamente la linea C-D è rap¬ 
presentata con l'impiego di E in luo¬ 
go di S. 

Adesso prendiamo in considerazio¬ 


ne il sistema di due equazioni a due 
incognite. 

Se il determinante è essenzialmen¬ 
te zero le linee sono parallele o coin¬ 
cidenti e questi casi possono essere i- 
gnorati. 


Altrimenti dobbiamo andare a de¬ 
terminare i valori di S e E per l’inter¬ 
sezione. 

Se E<0oE>loS<0oS>l 
l'intersezione avviene sul prolunga¬ 
mento delle linee ma non sullo spi- 
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/ 
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Figura 5. Estensioni. 
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golo di faccia o segmento di linea ve¬ 
ro e proprio. 

Se ci sono intersezioni valide vie¬ 
ne fatto un test, organizzato in termi¬ 
ni di distanza sulla coordinata W, al 
fine di stabilire se la faccia sia più 
vicina del segmento (se cioè lo oc¬ 
culti). 

Quando un segmento o uno spigo¬ 
lo è occultato rimane una di queste 
quattro possibilità: 


a) Cancellare l'intero frammento. 

b) Cancellare sulla sinistra. 

c) Cancellare sulla destra. 

d) Cancellare nel mezzo creando un 
frammento aggiuntivo. 


Considerate a questo riguardo la fi¬ 
gura 8. 

E' stato più semplice lavorare con 
le facce convesse, dato che la mag¬ 
gior parte degli oggetti può essere de¬ 
scritta in questi termini. 

Faccia convessa o poligono è quel¬ 
la nella quale due punti qualsiasi del 
poligono arbitrariamente presi pos¬ 
sono essere congiunti da un segmen¬ 
to interamente racchiuso nel poligo¬ 
no; potete averne un esempio nella 
pagina accanto: la figura 9 è con¬ 
vessa e la figura 10 non è con¬ 
vessa. 

Dato che nelle scene succede 
raramente di avere facce non conves¬ 
se le si può trattare individualmente 
spezzandole in pezzi convessi, per e- 
sempio I, II e III. 

Questa faccia non convessa è di fat¬ 
to memorizzata sotto forma di tre 
facce. Ma cosa accade delle linee trat¬ 
teggiate che ci sono in più? Noi non 
vogliamo che ingombrino l'immagi¬ 
ne. 

Perché non diano fastidio è suffi¬ 
ciente escluderle dalla lista dei se¬ 
gmenti. Usate solo da 1 a 2 (non da 
1 a 8), da 2 a 4, da 4 a 5, da 5 a 6, 
da 6 a 7, da 7 a 9 e da 9 a 1. 

Descrivete dunque la faccia I con i 
tre punti: 1, 8 e 9 (in questo stesso 
ordine per l'osservazione in senso o- 
rario). 

Infine per certi oggetti solidi ba¬ 
stano un lato anteriore e uno poste¬ 
riore; se cioè bisogna descrivere 
degli oggetti piccoli possono bastare 
due facce per rendere la tridi¬ 
mensionalità, come nel caso della pa¬ 
lizzata, della pensilina o del segnale 
di stop che sono visibili in figura 
14. 

11. Se uno spigolo o un segmen¬ 
to dev'essere spezzato in frammenti 



Figura 6a. Senza incrocio. 



Figura 6b. Incrocio. 
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si deve tener traccia di tutti i pezzi. 
Vengono mostrate solo le porzioni 
visibili restanti. Nel caso che una 
faccia occulti completamente il se¬ 
gmento dobbiamo saltare questa li¬ 
nea e ignorare tutti gli altri confron¬ 
ti di faccia. 

12. Una volta che la figura è com¬ 
pletata si ha un suono di campanel¬ 
lo, CHR$(7). Se a questo punto bat¬ 
tete S ottenete la scelta di usare un 
nuovo punto di vista. 

Qualsiasi altro valore di tastiera 
metterà fine al programma, dandovi 
l'occasione di caricare una routine di 
hard copy grafica per la stampante o 
di battere TEXT per pulire lo scher¬ 
mo. 

Ricordate che il computer ha anco¬ 
ra l'immagine nelle locazioni di me¬ 
moria da $4000 a $5FFF. 

Nel listato LINEE NASCOSTE 
potete notare il frequente uso di un 
fattore di "fudge", EPS = IE - 4. 

Sarebbe bello che il Basic o il For¬ 
tran e via dicendo permettessero un 
confronto di approssimazione ("vici¬ 
no a"). 

Le difficoltà si presentano in situa¬ 
zioni come quelle visibili nelle figu¬ 
re 13 a, b,c e d. I confronti come S 
>= 0 o EW(J,0) >= WH sono cam¬ 
biati in S >-EPS e EW(J,0) - WH >- 
EPS perché con l'aritmetica decima¬ 
le in una macchina binaria il compu¬ 
ter non sa che 0.000187 è quasi 
zero. 


Restrizioni 
e variabili 

Due, fondamentalmente, sono le 
restrizioni poste da questo pro¬ 
gramma a chi lo utilizza o a chi 
intende apportarvi qualche modifica: 

1. Quando vengono inseriti i 
valori da tastiera, si deve tener conto 
del fatto che o XE o YE deve essere 
diverso da zero. 

2. E' possibile modificare le di¬ 
mensioni, ma bisogna fare atten¬ 
zione a non usare la memoria riser¬ 
vata a HGR2. 

Ed ecco le variabili utilizzate: 

A Coordinata X non trasformata 
del punto. 

B Coordinata Y non trasformata 
del punto. 

C Coordinata Z non trasformata 
del punto; viene utilizzata anche co¬ 
me conto del numero di frammenti 
su di un segmento. 

D Usata per mettere in scala i pun¬ 


■ 




ti di coordinata orizzontale e vertica¬ 
le U e V. 

D$ CHR$(4) 

DI Distanza dalla faccia al segmen¬ 
to a S = SI. 

D2 Distanza dalla faccia al segmen¬ 
to a S = S2. 

DJ Distanza dalla faccia al segmen¬ 
to a S = SJ. 

DK Distanza dalla faccia al se¬ 
gmento a S = SK. 

DT Determinante della matrice 
2x2. 

E Posizione parametrica sullo spi¬ 
golo di una faccia quando esiste 
un'intersezione (fra 0 e 1). 

EPS IE - 4 Viene usato come fat¬ 
tore di "fudge" per quasi zero. 

F$ Nome di file per i dati. 


FI, F2 Numeri di faccia. 

I, J, K Indici. 

K Usata anche per determinare la 
posizione del piano della finestra su 
cui sono proiettati tutti i raggi 
(usate 0.5). 

LU, LV Coordinate del punto di si¬ 
nistra per la linea da tracciare con 
HPLOT. 

NE Numero degli spigoli o se¬ 
gmenti nella scena. 

NF Numero delle facce nella 
scena. 

NP Numero dei punti nella scena. 

NS Numero dei frammenti su un 
segmento. 

RU, RV Coordinate del punto di 
destra per la linea da tracciare con 
HPLOT. 
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S Variabile che indica qual è la 
posizione parametrica su un segmen¬ 
to quando esiste un’intersezione (fra 
Oe 1). 

SI, S2 Valori parametrici minimo 
e massimo dei punti in cui una fac¬ 
cia occulta un segmento (figura 
15). 

SH, SL Valori più alto e più bas¬ 
so nel parametro S dei frammenti an¬ 
cora visibili. 

SJ II massimo di 0 e SI. 

SK II minimo di 1 e S2. 

U 1. 

XE, YE, ZE Indicano qual è la po¬ 
sizione dell'occhio dell’osservatore 
nel sistema di coordinate originale 
(X, Y, Z). 

Z 0. 


Ecco, infine, anche l’elenco delle 
variabili vettoriali. 

E%(I,J) Per ogni segmento I: 

J = 0: invisibile (0) o visibile 

( 1 ). 

J = 1, 2: numeri di punto sinistro 
e destro. 

J = 3,4: Numeri di faccia adiacen¬ 
te se non zero. 

EU(I,J) Per la faccia I: J = 0, 1; e- 
stensioni sinistra e destra. 

EV(I,J) Per la faccia I: J = 0, 1; e- 
stensioni superiore e inferiore. 

EW(I,J) Per la faccia I: J = 0, 1; e- 
stensioni "più vicino e più lon¬ 
tano”. 

F%(I) Lista dei numeri di punto 
su tutte le facce raggruppati per 
faccia. 

FP%(I,J) J = 0 indica il numero di 
punti sulla faccia I. 

J = 1 è un puntatore al primo pun¬ 
to della matrice F% per la faccia I. 

S(I,J)J = 0, 1: indica i valori sini¬ 
stro e destro nel parametro S dei 
frammenti. 

T(I,J) Variabile utilizzata per la 
memorizzazione temporanea, quan¬ 
do la matrice S è in fase di aggior¬ 
namento. 

V%(I) Visibilità della faccia I: in¬ 
visibile = 0, visibile = 1. 

U(I), V(I), W(I) Sistema di coordi¬ 
nate trasformate. 

X(I), Y(I), Z(I) Sistema di coordi¬ 
nate originali. 



Il programma 
creazione file 

E’ stato inserito un programma de¬ 
nominato Creazione file per creare il 
file di testo occorrente per Linee na¬ 
scoste. 

Il programma è ad autoprompt 
con le stesse variabili di Linee nasco¬ 
ste, e ha molti punti in cui potete e- 
saminare o correggere gli errori pri¬ 
ma di salvare il file su dischetto. 

E’ caldamente consigliabile fare u- 
no schizzo a mano libera che contras- 
segni i punti, le facce e gli spigoli 
prima di eseguire il programmaCrea- 
zione file. 

Fate in modo che il computer mo¬ 
stri la scena più precisa da vari punti 
di vista. 

Linee 80-160 Immette il nome del 
file, il numero di punti, di spigoli e 
di facce. 

Linee 170-190 Apre il file con le 
informazioni di cui sopra per saggia¬ 
re la validità del nome di file scelto. 

Linee 210-360 Immette i punti; e- 
ventualmente esamina o corregge i 
valori. 

Linee 370-800 Immette le facce: e- 
ventualmente esamina o corregge i 
valori. 

Linee 810-1030 Immette gli spigo¬ 
li: eventualmente esamina o correg¬ 
ge i valori. 
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Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 

Difatti sembrano tutti uguali finche non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 


GLI ALTRI DISCHETTI 

chiusi un punto qui, 
un punto là lasciano 
gran parte dei 
lembi aperti. 


Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. Questo può accadere con gli 
abituali sistemi di chiusura ma non con i 
dischetti Memorex che usa un 
procedimento esclusivo chiamato 
“Solid-Seam Bonding”. 

Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i 
dischi Memorex viene sigillato 
ermeticamente, rendendoli più rigidi e più 
resistenti. 


un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 
Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio 
- ricordate: non tutti i dischetti 
sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 


BURROUGHS-MEMOREX S.P.A. 
Divisione Computer Media 
Via Ciro Menotti, 14 Tel. 02/718551 
20129 MILANO MI 


è importante scegli 



A Burroughs Company 




















Concessionari 
Memorex 
Computer Media 


TORINO 

COMPUTER MEDIA 

Via Susa, 37 - Tei. 011 /442261 /441027 

BIELLA (VC) 

CO. FIN 

Via Bengasi, 2 - Tel. 015/30237 

CUNEO-VIOLA 

Via Martini, 11/1 - Tel. 0174/73220 

GENOVA 

Via Col di Lana, 5/19 - Tel. 010/418719 

MILANO 

LOGOTEC 

Via Pacini, 72 - Tel. 02/292677/235539 

MILANO 

GASP! 

Via Pecchio, 1 - Tel. 02/225806 

MONZA (MI) 

COMPUTER CITY 

Via San Gottardo, 84 - Tel. 039/326293 

GALLARATE (VA) 

EMMEQUATTRO 

Via Pegoraro, 18 - Tel. 0331 /795248 

VIADANA (MN) 

PAU 

Via M. D'Azeglio, 29 - Tel. 0375/81874 

CONEGLIANO VENETO (TV) 

DAL CIN ELIO 

Vìa Manin, 59/A - Tel. 0438/63144 

PARMA 

CHI-BO 

Via Ravasini, 7 - Tel. 0521 /995332 

BOLOGNA 

TRADER LINE 

Via Morgagni, 8 - Tel. 051/271672 

SAN LEONARDO (FO) 

IL CENTRO EDP 

Via Armellino, 19 - Tel. 0543/728091 

LIVORNO 

INFORMATICA 

Via Scali degli Olandesi, 54 - Tel. 0586/30022 

PERUGIA 

R2INFORM 

Via XX Settembre, 70 - Tel. 075/61000-72266 

ANCONA 

PRISMA ' 

Corso Carlo Alberto, 12 - Tel. 071 /899262 

PESCARA 

SEFIN 

Via Parini, 21 - Tel. 085/23632 

ROMA 

MEMORY LINE 

Via Nomentana, 224 - Tel. 06/8320040-8320434 

SALERNO 

SYNCRONDATA 

Via Paolo de' Granita, 14 - Tel. 089/241410 

BARI 

NICOLA ROBERTO CAVALLO 
Via Durazzo, 17 - Tel. 080/330499 

VIBO VALENTIA (CZ) 

Via Pio XII, 14 - Tel. 096/343609 

SASSARI 

O.R.E. 

Zona Industriale Predda Niedda 
Tel. 079/260477 

SARDEGNA 

R & R ELECTRONICS 

Via Fratelli Canepa, 94 - Serra Ricco (GE) 

Tel. 010/750729-750866 

PALERMO 

BYTE’S HOUSE $ 

Via Vann'Antò, 28-Tel. 091/291154 à 


è importante scegli 

MEMOREX 

A Burroughs Company 



Linee 1040-1120 Routine che 
provvede ad aggiungere il file, scri¬ 
vendo poi il resto dei dati sul di¬ 
schetto. 

Linee 1130-1160 Subroutine con 
una lista di opzioni. 

Per predisporre il file di testo se¬ 
quenziale, è necessario che la scena 
risulti divisa nelle sue parti compo¬ 
nenti. 

Queste sono, nell’ordine: punti, 
spigoli e facce. 

Primo passo: 
i punti 

Tutti i vertici delle facce e i punti 
estremi degli spigoli devono essere i- 
dentificati e numerati con l’impiego 
di un normale sistema rettangolare 
tridimensionaledi coordinatecartesia¬ 
ne. L’origine a (0,0,0) deve essere al 
centro della scena o vicina al centro. 

La casa della figura 1 richiede 10 
punti. La messa in scala è stata fatta 
sulla base di 1 unità = 20 piedi. La 
base della casa può essere descritta 
con quattro punti: (0,0,0), (2,0,0), 
(2,1,0) e (0,1,0), a rappresentare una 
casa di 40 x 20 piedi. 

L'ordine effettivo di numerazione 
dei punti è questione di convenienza, 
ma deve essere tenuto coerente con 
le altre componenti della scena. 

Secondo passo: 
le facce 

E' considerata faccia qualsiasi su¬ 
perficie piana convessa. Per i piani 
non convessi evitate gli spigoli invi¬ 
sibili (come indicato nelle figure 9, 


10 e 11) per il passo 3 quando farete 
la divisione in piani convessi. 

La maggior parte degli oggetti so¬ 
lidi consta di varie facce; per esem¬ 
pio un cubo ha sei facce. 

Un oggetto molto sottile, come 
un segnale di stop, può essere consi¬ 
derato come se fosse composto di 
due sole facce, in questo caso ottago¬ 
nali. 

Le superfici curve come quelle dei 
cilindri devono essere rappresentate 
come vari piani con gli spigoli invi¬ 
sibili rimossi. 

Per ciascuna faccia il file ha biso¬ 
gno del numero di punti (vertici) su 
quella faccia seguito dai numeri di 
punto nelfordine del senso orario 
guardando dall'esterno. 

La casa consta di sette facce. 

L’ordine in senso orario è impor¬ 
tante per poter distinguere l’interno 
dall'esterno. 

Per esempio la faccia 3 consta di 
cinque punti, ossia 10, 7, 3, 2 e 6, e 
la faccia 6, cioè il tetto posteriore, 
consta di quattro punti, ossia 10, 6, 

5 e 9. 

A patto di mantenere per la faccia 

6 l'ordine in senso orario, sarebbe u- 
gualmente accettabile l'ordine 6, 5, 
9, 10. Si potrebbe infine omettere la 
faccia 7, il fondo della casa, poiché 
non succede mai di vedere le case dal 
di sotto. 

Terzo passo: 
gli spigoli 

Uno spigolo è una linea potenzial¬ 
mente visibile su una faccia o un 
oggetto stretto autonomo, come un 
palo o un cavo del telefono. Per o- 




113 















scuola 



Listato 2 


30 REM CREAZIONE FILE 
40 REM COPYRIGHT 1986 
50 REM BY APPLICANDO & 

60 REM MICROSPARC, INC 

70 REM - 

80 Y$ = "S":N$ = "N" : D$ = CHR$ (4):S$ = " " 

90 HOME : VTAB 23: PRINT " (C) 1986 BY APPLICANO 

O & MICROSPARC": VTAB 2: PRINT "CREAZIONE FILE 
PER LINEE NASCOSTE" 

100 PRINT : INPUT "NOME FILE:";F$ 

110 PRINT : INPUT "N. DEI PUNTI=";NP 
120 INPUT "N. DEGLI SPIGOLI=";NE 
130 INPUT "N. DELLE FACCE=";NF 
140 INPUT "QUALCHE MODIFICA (S/N)?";Q$ 

150 Q$ = LEFTS (Q$,l): IF Q$ < > Y$ AND Q$ < > 

N$ THEN 140 

160 IF Q$ = Y$ THEN 100 

170 DIM X (NP ) , Y (NP) , Z (NP) , F% (NF + 1, 1) , E% (NE, 4) 
180 PRINT D$"OPEN"F$ : PRINT D$"DELETE"F$: PRINT D 
$"OPEN"F$ 

190 PRINT D$"WRITE"F$: PRINT NP: PRINT NE: PRINT 
NF: PRINT D$"CLOSE"F$ 

200 REM - IL NOME DEL FILE VIENE CONTROLLATO SUB 
ITO 

210 REM - PUNTI DI INPUT X,Y,Z 

220 HOME : PRINT "BATTI VALORI X, Y, Z SU OGNI LI 
NEA": PRINT 

230 FOR I = 1 TO NP: PRINT "PUNTO N."I":";: INPUT 
X(I) ,Y(I) # Z (I) : NEXT I 
240 GOSUB 1130 
250 ON C GOTO 260,320,380 

260 II = 1:12 = 20: IF NP < 12 THEN 12 = NP 
270 HOME : FOR I = Il TO 12: PRINT "PUNTO N."I":" 

X(I) ;S$;Y(I) ;S$;Z (I) : NEXT I 
280 INPUT "PREMI 'RETURN' PER CONTINUAREH$ 
290 IF 12 = NP THEN 240 

300 II - Il + 20:12 = 12 + 20: IF NP < 12 THEN 12 
- NP 

310 GOTO 270 

320 HOME : PRINT "PREMI '0* PER SMETTERE": INPUT 
"N. VALORE DA CORREGGERE:";V$ 

330 V = VAL (V$): IF V = 0 AND V$ = "0" THEN 240 

340 IF V < 1 OR V > NP THEN 320 

350 PRINT "VECCHI VALORIX(V) ; S$;Y (V) ; S$; Z (V) 
360 INPUT "NUOVI VALORIX(V) , Y(V),Z(V): GOTO 3 
20 

370 REM - INPUT DELLA DESCRIZIONE DELLE FACCE 

380 HOME : PRINT "BATTI N. DEI PUNTI PER OGNI N. 

FACCIA": PRINT 

390 FOR I = 1 TO NF: PRINT "FACCIA N."I":";: INPU 
T F% (1,0) : NEXT I 
400 GOSUB 1130 
410 ON C GOTO 420,480,540 

420 II = 1:12 = 20: IF NF < 12 THEN 12 = NF 
430 HOME : FOR I = Il TO 12: PRINT "N. DEI PUNTI 
SULLA FACCIA N."I":"F%(I, 0) : NEXT I 
440 INPUT "PREMI 'RETURN' PER CONTINUAREH$ 
450 IF 12 = NF THEN 400 

460 II - Il + 20:12 = 12 + 20: IF NF < 12 THEN 12 

= NF 

470 GOTO 430 

480 HOME : PRINT "BATTI '0' PER SMETTERE": INPUT 
"N. VALORE DA CORREGGERE V$ 

490 V = VAL (VS): IF V = 0 AND V$ = "0" THEN 400 

500 IF V < 1 OR V > NF THEN 480 

510 PRINT "VECCHIO VALORE F% (V, 0) 

520 INPUT "NUOVO VALORE F% (V,0) 

530 GOTO 480 

540 F% (1,1) = 1: FOR I = 1 TO NF:F%(I + 1,1) = F% 
(I, 1) + F% (1,0) : NEXT 
550 NT = F% (NF + 1,1): DIM FP%(NT):L = 1 
560 FOR I = 1 TO NF : K = F%(I,0) 

570 HOME : PRINT "BATTI NUMERI PUNTI PER FACCIA N 
."I 

580 PRINT "N. DEI PUNTI SU QUESTA FACCIA=";K 
590 FOR J = 1 TO K 

600 PRINT "PUNTO N."J;: INPUT FP%(L):L = L + 1 
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610 NEXT J,I 

620 GOSUB 1130 

630 ON C GOTO 640,720,820 

640 Il = 1:12 = 5: IF NF < 12 THEN 12 = NF '-r / 

650 HOME : FOR I =11 TO 12: PRINT "FACCIA N."I: 
PRINT "PUNTI 

660 K1 = F%(I,1 ) :K2 = F%(I + 1,1) - 1: FOR K = K1 
TO K2: PRINT FP%(K);S$;: NEXT K 
670 PRINT : PRINT : NEXT I 

680 INPUT "PREMI 'RETURN* PER CONTINUAREH$ 
690 IF 12 = NF THEN 620 

700 II - Il + 5:12 =12+5: IF NF < 12 THEN 12 = 
NF 

710 GOTO 650 

720 HOME : PRINT "BATTI '0' PER SMETTERE": INPUT 
"N. FACCIA DA CORREGERE:";V$ 

730 V = VAL (V$): IF V = 0 AND V$ = "0" THEN 620 
740 IF V < 1 OR V > NF THEN 720 

750 HOME : PRINT "LA FACCIA N."V" HA "F%(V,0)" PU 

NTI. " 

760 PRINT "VECCHI VALORI 

770 K1 = F%(V, 1) :K2 = F%(V + 1,1) - 1: FOR K = K1 
TO K2 

780 PRINT FP%(K);S$;: NEXT K 

790 PRINT : PRINT : PRINT "NUOVI VALORI:" 

800 FOR L = K1 TO K2: INPUT "PUNTO N.";FP%(L): NE 
XT : GOTO 720 
805 GOTO 720 

810 REM - INPUT DELLA DESCRIZIONE DEGLI SPIGOLI 

820 HOME : PRINT "N. DEGLI SPIGOLI =";NE: PRINT : 

PRINT "PER OGNI SPIGOLO FORNISCI DUE PUNTI 
E DUE FACCE O DUE ZERI" 

830 FOR I = 1 TO NE: PRINT : PRINT "SPIGOLO N."I 
840 INPUT "PUNTO N.1 :E%(1,1) 

850 INPUT "PUNTO N.2 :";E%(1,2) 

860 INPUT "FACCIA N.1 :";E% (1,3) 

870 INPUT "FACCIA N.2 :";E% (1,4) 

880 NEXT 

890 GOSUB 1130 

900 ON C GOTO 910,980,1050 

910 II = 1:12 = 5: IF NE < 12 THEN 12 = NE 

920 HOME : FOR I = Il TO 12: PRINT "SPIGOLO N."I: 

PRINT "PUNTI :"E% (1,1);S$;E% (I,2) 

930 PRINT "FACCE :"E% (I,3);S$;E%(I,4) : PRINT : NE 
XT I 

940 PRINT : INPUT "PREMI 'RETURN' PER CONTINUARE" 
; H$ 

950 IF 12 = NE THEN 890 

960 II = Il + 5:12 =12+5: IF NE < 12 THEN 12 = 
NE 

970 GOTO 920 

980 HOME : PRINT "BATTI '0' PER SMETTERE": INPUT 
"N. SPIGOLO DA CORREGGERE:";V$ 

990 V = VAL (V$): IF V = 0 AND V$ = "0" THEN 890 
1000 HOME : PRINT "SPIGOLO N."V: PRINT "VECCHI P 
UNTI :";E%(V,1);S$;E%(V, 2) : PRINT "VECCHIE FA 
CCE:";E% (V,3);S$;E%(V,4): PRINT 
1010 INPUT "NUOVI PUNTI :";E%(V,1),E%(V,2) 

1020 INPUT "NUOVE FACCE :";E%(V,3),E%(V,4) 

1030 GOTO 980 

1040 REM - AGGIUNGE TUTTI I DAT AL FILE SUL DISC 
HETTO F$ 

1050 HOME : PRINT "FILE COMPLETATO...SCRIVO SUL D 
ISCHETTO" 

1060 PRINT D$"APPEND"F$: PRINT D$"WRITE"F$ 

1070 FOR I = 1 TO NP: PRINT X(I): PRINT Y(I): PRI 
NT Z (I) : NEXT 

1080 FOR I = 1 TO NF:K = F%(I,0): PRINT K:J1 = F% 
(1,1):J2 = J1 + K - 1 

1090 FOR J = J1 TO J2: PRINT FP%( J) : NEXT J,I 
1100 FOR I = 1 TO NE: FOR J = 1 TO 4 : PRINT E% (I, 
J) : NEXT J, I 
1110 PRINT D$"CLOSE"F$ 

1120 END 

1130 HOME : PRINT "OPZIONI:" 

1140 PRINT "(1) ESAMINARE LISTA": PRINT "(2) CORR 
EGGERE VALORE/I": PRINT "(3) CONTINUARE" 

1150 INPUT "SCELTA:";C: IF C < 1 OR C > 3 THEN 11 
30 

1160 C = INT (C) : RETURN 


gni spigolo dobbiamo avere i due nu¬ 
meri delle estremità, nell’uno o nel¬ 
l'altro ordine, e le facce adiacenti, se 
ce ne sono. 

Per esempio lo spigolo 15 in ci¬ 
ma al tetto va dal punto 9 al punto 


10, i punti più alti dell'edificio, ed è 
adiacente alle facce 5 e 6, le due se¬ 
zioni del tetto. 

Per gli oggetti come i pali o i fili 
le facce adiacenti devono essere en¬ 
trambe zero (0). 


Questo programma è disponibile 
su dischetto. L'elenco, i prezzi 
eie modalità d'ordine di questo e 
degli altri dischetti disponibili sono | 
riportati nella rubrica Disk Service. 


i 


© ByNibble e Applicando 
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Nelle pagine dedicate al progetto Seraphim, Applicando presenta 
questa volta un programma insolito. Createst infatti non è un 
programma specificatamente dedicato alla chimica: può anzi essere 
utilizzato per progettare questionari con ogni genere di argomento. 


Ore 9: lezione di... 


Il programma Createst è pratica- 
mente un'ottima utility che permette 
la creazione di test a scelta multipla 
con quattro alternative, che restano 
memorizzati su dischetto e che pos¬ 
sono essere poi sottoposti agli stu¬ 
denti. 

Il suo utilizzo non è quindi 
limitato a un'unica materia, come la 
chimica, ma il programma può 
essere destinato al ripasso attivo di 
qualunque disciplina per la quale si 
siano impostati test adeguati. 

A differenza dei popolari Trivia, 
non viene semplicemente costruito 
un data base da cui attingere le do¬ 
mande e le risposte nella fase di gio¬ 
co, ma viene addirittura creato un 
programma autonomo contenente 
nei DATA del proprio codice tutte le 
informazioni necessarie per produrre 
il test. Questo consente naturalmen¬ 
te due vantaggi immediati: maggiore 
velocità nella fase di test, perché si 
risparmiano gli accessi al disco, e 
maggiore maneggevolezza del soft¬ 
ware, perché non è necessario copia¬ 
re grandi file ad accesso casuale, ma 
semplicemente un unico file pro¬ 
gramma. 

Questa utility è costituita da tre 
programmi; il primo di questi, "Ini¬ 
zio" (listato 1), molto breve, si li¬ 
mita a presentare un menù con due 
possibili scelte: creare un nuovo te¬ 
st, o usare un test già presente nel di¬ 
schetto. Rispondendo di voler creare 
un nuovo test il programma carica 
"Creator" (listato 2) che provvede 
appunto alla preparazione del test. 

Una serie di spiegazioni, per la ve¬ 
rità molto semplici, per l'impiego 
del programma, viene data all'ini¬ 
zio. Bisogna soltanto scrivere le do¬ 
mande e poi, a richiesta, le quattro 
alternative, inserire il numero della 
risposta corretta e un breve commen¬ 


to per ciascuna delle alternative sba¬ 
gliate. 

Quest'ultima possibilità è partico¬ 
larmente interessante in quanto diffe¬ 
renzia il test al calcolatore da quello 
sulla carta: non solo si sa subito il 


risultato di ogni singola domanda, 
ma soprattutto si riceve una spiega¬ 
zione immediata nel caso di scelta di 
una alternativa sbagliata. 

L'unico limite di questa parte del 
programma sta nella lunghezza dei 



70 VTAB V - 2: HTAB I: PRINT " = " 

80 VTAB V + 2: HTAB I: PRINT 
90 NEXT 
100 C = 1 

110 A$ = "CREO I TEST. 

120 GOSUB 200 

130 C = 4 

140 VTAB 23 

150 FOR I = 1 TO 17 

160 PRINT 

170 GOSUB 350 

180 NEXT 

190 GOTO 360 

200 AA$ - A$ 

210 H = 21 - LEN (AA$) / 2 
220 FOR I = 1 TO 40 
230 A$ = " " + A$ 

240 NEXT 
250 VTAB V 

260 PRINT MID$ (A$,l,40) 

270 GOSUB 350 

280 FOR T = 1 TO 10: NEXT 

290 IF MID$ (A$,H, LEN (AA$)) = AA$ THEN VTAB 12: HTAB 11: PRINT 
"DI MARK SEMINATORE": PRINT : HTAB 21: PRINT "E": PRINT : HTAB 
14: PRINT "CHRIS GREENWOOD": FOR T = 1 TO 200: NEXT 
300 A$ = MID$ (A$,2) + LEFT$ (A$,1) 

310 IF MID$ (A$,41, LEN (AA$)) = AA$ THEN VTAB V: PRINT " ": GOTO 
330 

320 GOTO 250 

330 FOR TIME = 1 TO 200: NEXT 
340 RETURN 

350 FOR II = 1 TO C:S = PEEK (N) - PEEK (N) + PEEK (N): NEXT : R 
ETURN 

360 VTAB 5: HTAB 18: PRINT "MENU": PRINT : PRINT : HTAB 12: PRINT " 
C)REA NUOVI TEST": PRINT : HTAB 12: PRINT "U)SA VECCHI TEST" 

370 VTAB 15: HTAB 8: PRINT "***COSA VUOI FARE ? ";: GET A$: IF A$ = 
"C" THEN HOME : VTAB 12: HTAB 12: FLASH : PRINT "ASPETTA UN A 
TTIMO": NORMAL : PRINT D$"RUN CREATOR" 

380 IF A$ < > "U" THEN 370 

390 PRINT : PRINT 

400 PRINT : PRINT "COME SI CHIAMA IL TEST CHE VUOI USARE?": INPUT A 
$ : PRINT D$"RUN ";A$ 

410 IF PEEK (222) = 6 THEN PRINT CHR$ (7);: PRINT "QUESTO NON C' 
E' SUL DISCO_": GOTO 370 
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Listato 2 


1 REM CREATOR 

2 REM - 

9 REM *** INIZIO E SPIEGAZIONI 

10 DIM Q$(100), A$(100,4),E$ (100,4), AN (100) 

20 DI = 1:D2 = 4 

30 HOME : VTAB 10: HTAB 13: PRINT "RUDIGER HELPER 
": VTAB 22: HTAB 6: PRINT "***UN TASTO PER COM 
INCIARE***";: GET A$ 

40 HOME : PRINT : PRINT : PRINT : PRINT "QUESTO P 
ROGRAMMA E' USATO PER PREPARARE LE DOMANDE DA 
IMPIEGARE NEL PROGRAMMA 'TEST'.": PRINT 
50 PRINT "TI VERRÀ* RICHIESTO DI INTRODURRE DOMAN 
-DE, RISPOSTE ED UNA BREVE SPIEGAZIONE. NON B 
ISOGNA MAI SUPERARE LO SPAZIO CON- CESSO PER I 
L TESTO E LE ALTERNATIVE.": PRINT 
60 PRINT "LE SPIEGAZIONI SONO MESSAGGI CHE APPAIO 
-NO QUANDO LO STUDENTE SCEGLIE UNA ALTER-NATIV 
A ERRATA. SE VUOI DARE LO STESSO MESSAGGIO I 
N PIU* DI UN CASO,SCRIVI SOLOIL NUMERO DELLA S 
PIEGAZIONE DA DUPLICARE" 

70 PRINT "NON SI POSSONO USARE VIRGOLE NEL TESTO. 

80 VTAB 22: HTAB 4: PRINT "***PREMI UN TASTO PER 
CONTINUARE***'*;: GET A$ 

90 HOME : PRINT : PRINT 

100 PRINT " IL PROGRAMMA E* STATO COSTRUITO PER 
UN ELABORATORE CON 64K; SI POSSONO INS 

ERI RE FINO A 100 DOMANDE. TOGLIERE 

20 DOMANDE OGNI 16K DI MEMORIA IN MENO.*': PR 
INT 

110 PRINT '* DOPO AVER INTRODOTTO IL TEST PREMER 
E <RETURN> . VERRÀ* PRESENTATO POI UN MENU DI 
OPZIONI. **: PRINT 

120 PRINT ** DOPO AVER CORRETTO IL TEST PREMERE 
<M> PER CREARE IL PROGRAMMA DI TEST.": PRIN 
T 

130 PRINT " IL PROGRAMMA COSI* CREATO E* AUTONOM 
O E POTRÀ* ESSERE USATO DAGLI STUDENTI. SI 
AVRA* ANCHE UN CALCOLO DEL PUNTEGGIO.": PRINT 

150 PRINT : PRINT 

160 VTAB 22: HTAB 4: PRINT "***PREMI UN TASTO PER 
CONTINUARE***";: GET A$ 

170 HOME : VTAB 10 

499 REM *** NOME *** 

500 HOME : VTAB 10: PRINT "NOME DEL TEST ?";: HTA 

B 21: PRINT N$; : HTAB 20: INPUT Nl$: IF Nl$ < 

> "" THEN N$ = Nl$ 

510 VTAB 10: HTAB 21: PRINT N$; : CALL - 958: PRI 
NT 

520 VTAB 12: PRINT "CHI SEI? "; : HTAB 13: PRINT Q 
M$; : HTAB 12: INPUT Nl$: IF Nl$ < > "" THEN 
QMS = Nl$ 

530 VTAB 12: HTAB 13: PRINT QMS: CALL - 958 

540 VTAB 22: HTAB 11: PRINT ***** GIUSTO (S/N) ? " 

;: GET A$: IF A$ = "N" THEN 500 
550 IF DI = D2 THEN 3000 
560 Q = 1 

999 REM *** DOMANDE *** 

1000 HOME : PRINT : PRINT : PRINT "DOMANDA #";Q: 

PRINT : FOR X = 1 TO 140: PRINT CHRS (95);: 

NEXT : PRINT : VTAB 5: HTAB 2: PRINT Q$(Q); 

: HTAB 1: VTAB 5: INPUT Q$ : CALL - 958 
1010 IF Q$ = "" AND DI - D2 THEN HTAB 2: VTAB 5: 

PRINT Q$(Q): PRINT : INVERSE : HTAB 12: PRI 
NT "NESSUN CAMBIAMENTO";: RETURN 
1020 IF Q$ = "" THEN 2610 

1030 IF LEN (Q$) > 140 THEN Q$(Q) = LEFTS (Q$,1 
40): GOTO 1500 
1040 Q$(Q) = Q$ 

1050 IF DI = D2 THEN PRINT : FLASH : HTAB 18: PR 


INT "FATTO": RETURN 

1499 REM *** RISPOSTE *** 

1500 VTAB 10: PRINT "RISPOSTE: " 

1510 FOR A = DI TO D2: PRINT : PRINT A;".";: FOR 
X = 1 TO 25: PRINT CHRS (95);: NEXT : HTAB 
4: PRINT A$(Q,A); : HTAB 3: INPUT A$: CALL - 
958 

1520 IF A$ = »" AND DI = D2 THEN VTAB 12: HTAB 4 
: PRINT A$(Q,A): PRINT : INVERSE : HTAB 12: 
PRINT "RIMANE UGUALE";: RETURN 
1530 IF LEN (A$) > 25 THEN A$(Q,A) = LEFTS (AS, 
25): GOTO 1550 
1540 AS(Q,A) = AS 
1550 NEXT 

1560 IF DI = D2 THEN PRINT : FLASH : HTAB 18: PR 
INT "FATTO": RETURN 

1999 REM *** RISPOSTA CORRETTA *** 

2000 VTAB 21: PRINT "LA RISPOSTA ESATTA E' ";: IN 

PUT AN (Q) : IF AN (Q) > 4 OR AN (Q) < 1 OR AN (Q 
) < > INT (AN(Q)) THEN PRINT "": GOTO 200 

0 

2010 E$(Q,AN) = CHRS (1) :E$(Q,AN (Q)) = "" 

2020 IF DI = D2 THEN PRINT : FLASH : HTAB 18: PR 
INT "FATTO": RETURN 

2499 REM *** SPIEGAZIONI *** 

2500 HOME : PRINT : PRINT : HTAB 15: PRINT "SPIEG 
AZIONI":V = 6: FOR A = DI TO D2: VTAB V: IF 
(AN(Q) = A) THEN E$(Q,A) = "": GOTO 2570 

2510 PRINT A"."AS(Q,A) 

2520 VTAB V + 2: FOR X » 1 TO 65: PRINT CHRS (95 
);: NEXT : HTAB 2: VTAB V + 2: PRINT E$(Q,A) 

: VTAB V + 2: INPUT E$: IF LEN (E$) > 65 TH 

EN E$(Q,A) = LEFTS (E$,65): GOTO 2560 

2530 IF E$ = •*" AND DI = D2 THEN HTAB 2: VTAB V 

+ 2: PRINT E$(Q,A): CALL - 958: PRINT : INV 
ERSE : HTAB 12: PRINT "RIMANE UGUALE";: RETU 
RN 

2540 IF VAL (E$) < 4 AND VAL (E$) < > AN(Q) AN 

D VAL (E$) > 0 THEN E$(Q,A) = E$(Q, VAL (E$ 

)): GOTO 2560 
2550 E$(Q,A) = E$ 

2560 V = V + 6: IF E$ = "» THEN E$(Q,A) = CHRS ( 
1) 

2570 CALL - 958: VTAB V: NEXT 

2580 IF DI = D2 THEN PRINT : FLASH : HTAB 18: PR 
INT "FATTO": RETURN 
2590 Q = Q + 1: IF Q > 100 THEN 2610 
2600 GOTO 1000 
2610 Q = Q - 1:NQ = Q 

2999 REM *** UTILITIES *** 

3000 HOME : PRINT : PRINT : HTAB 20: PRINT "MENU" 

: PRINT : VTAB 6: HTAB 13: PRINT "A)GGIUNGE 
DOMANDE": PRINT : HTAB 13: PRINT "T)OGLIE DO 
MANDE": PRINT : HTAB 13: PRINT "R)IVEDE DOMA 
NDE": PRINT : HTAB 13: PRINT "C)AMBIA NOME": 

PRINT 

3010 W = 0 

3020 HTAB 13: PRINT **M) ODIFICA" : PRINT : HTAB 13: 
PRINT *'G) ENERA PROGRAMMA": PRINT : HTAB 13: 
PRINT **F) INE" 

3030 VTAB 22: HTAB 8: PRINT "***FA LA TUA SCELTA* 
**";: GET A$:W = (AS = "A") + (2 * (AS = "T" 
)) + (3 * (AS = "R")) + (4 * (AS = "C")) + ( 

5 * (AS = "M")) + (6 * (AS = "F")) + (7 * (A 
$ = "G")): IF W = 0 THEN 3030 
3040 ON W GOTO 3500,4000,4500,5000,5500,6000,7000 

3499 REM *** SUBROUTINE DI AGGIUNTA 

3500 Q = Q + 1:D1 = 1:D2 = 4: GOTO 1000 

3999 REM *** SUBROUTINE DI CANCELLAZIONE 

4000 HOME : VTAB 4: HTAB 13: PRINT "TOGLIE DOMAND 
E" 

4010 PRINT : PRINT " UNA DOMANDA TOLTA PUÒ* ESS 
ERE RIMES- SA NEL TEST SCRIVENDOLA NUOVAMENT 
E CON L'OPZIONE 'MODIFICA'." 


testi che non deve superare 140 carat¬ 
teri per la domanda, 25 caratteri per 
le risposte e 65 caratteri per le spie¬ 
gazioni; inoltre nei testi non posso¬ 
no essere introdotte virgole, dato che 
domande, risposte e spiegazioni di¬ 
venteranno poi una serie di Data nel 
programma che presenta il test. In 
un sistema dw 64K è possibile intro¬ 
durre un massimo di 100 domande. 

Completata questa prima parte 


compare un menù che offre la possi¬ 
bilità di intervenire nuovamente sul¬ 
le informazioni introdotte. E' possi¬ 
bile scegliere se rivedere ed eventual¬ 
mente modificare ogni parte del test 
o continuare a inserire nuove doman¬ 
de. 

Quando si è raggiunto il risultato 
voluto, con l’opzione "Genera pro¬ 
gramma" viene iniziata la creazione 
del programma di test. 


Come funziona 

Si ottiene questo con le righe da 
7000 a 7120 del programma Crea¬ 
tor, che generano un file di testo 
chiamato "Quizfile” che contiene tut¬ 
te le domande e le risposte e alcune 
altre parole chiave. Il comando E- 
XEC della linea 7120 cancella la 
memoria centrale, carica il program¬ 
ma "Masterquiz" e inserisce in coda 
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4020 VTAB 11: PRINT : PRINT "QUALE DOMANDA VUOI C 
ANCELLARE?": PRINT : INPUT " (0=FINE) ? ";QQ: 

IF QQ > NQ OR QQ < 0 OR QQ < > INT (QQ) T 

HEN 4020 

4030 IF QQ = 0 THEN 3000 

4040 GOSUB 4510: VTAB 23: PRINT "E* GIUSTO (S/N) 

? GET A$: IF A$ = "N" THEN GOTO 3000 
4050 IF A$ = "S" THEN Q$(QQ) = "DELETED": FLASH : 
PRINT : HTAB 15: PRINT "CANCELLATA”: FOR X 
= 1 TO 1500: NEXT : NORMAL : GOTO 3000 
4060 GOTO 4040 

4499 REM *** SUBROUTINE PER RIVEDERE 

4500 QQ = 1 

4510 HOME : PRINT : PRINT : PRINT "DOMANDA #";QQ: 

VTAB 5: PRINT Q$(QQ): VTAB 10: 

4520 PRINT "RISPOSTE E SPIEGAZIONI : ": FOR A = 1 
TO 4: PRINT : PRINT A" . "A$(QQ,A);" - IF 

E3(QQ/A) = »» THEN PRINT "ESATTA": GOTO 45 
40 

4530 PRINT E$(QQ,A) 

4540 NEXT 

4550 IF W = 2 OR W = 5 THEN RETURN 
4560 VTAB 23: PRINT "UN TASTO PER CONTINUARE,<ESC 
> PER FINIRE";: GET A$: IF A$ = CHR$ (27) T 
HEN GOTO 3000 

4570 QQ = QQ + 1: IF QQ > Q THEN QQ = 1 
4580 GOTO 4510 

4999 REM *** CAMBIARE IL NOME 

5000 DI = D2: HOME : GOTO 500 

5499 REM *** SUBROUTINE DI CORREZIONE 

5500 HOME : PRINT : PRINT : HTAB 16: PRINT "MODIF 
ICA": PRINT : PRINT : PRINT " QUESTA OPZIO 
NE TI PERMETTE DI CAMBIA-RE IL TESTO DELLE D 
OMANDE, LE RISPOSTE O LE SPIEGAZIONI." 

5520 PRINT : PRINT " PER TORNARE AL MENU, IN QU 
ALSIASI MO-MENTO, PREMI <RETURN> . " 

5530 VTAB 22: PRINT "QUALE DOMANDA VUOI MODIFICAR 
E? ";: INPUT Q$ : IF Q$ = "" THEN 3000 
5540 Q = VAL (Q$) : IF Q = 0 THEN 5530 

5550 IF Q < 1 OR Q > NQ OR Q < > INT (Q) THEN 5 

530 

5560 IF A$ = "" THEN 3000 
5570 QQ = Q: GOSUB 4510 

5580 VTAB 23: PRINT "***PREMI T)ESTO, A) LT. ERRATE 
, OHIAVE, S) PIEGAZIONI, O <RETURN>PER FINI 
RE";: GET A$:W1 = (A$ = "T") + (2 * (A$ = "A 

")) + (3 * (A$ = "C")) + (4 * (A$ = "S")) + 

(5 * (A$ = "")) 

5590 IF A$ = CHR$ (13) THEN 3000 
5600 IF W1 = 0 THEN HTAB 1: GOTO 5580 

5610 IF W1 = 2 OR W1 = 4 THEN PRINT : VTAB 23: P 

RINT "QUALE (1,2,3,4) ? ";: CALL - 868: GET 
D1$:D1 - VAL (Dl$): IF DI > 4 OR DI < 1 OR 
DI < > ( INT (DI)) THEN 5610 

5620 D2 = DI : AN = AN(Q) 

5630 IF DI = AN(Q) AND W = 4 THEN 5610 

5640 IF W1 = 3 THEN HTAB 1: VTAB 22: CALL - 958 

: GOTO 5660 
5650 HOME 

5660 ON W1 GOSUB 1000,1500,2000,2500 

5670 NORMAL : FOR X = 1 TO 1500: NEXT : GOTO 5570 

5999 REM *** SMETTERE *** 

6000 HOME : VTAB 12: PRINT "SEI SICURO DI VOLERE 
REALMENTE ANNULLAREIL LAVORO CHE HAI FATTO F 
IN QUI (S/N) ? ";: GET A$: IF A3 = "S" THEN 
6020 

6010 GOTO 3000 

6020 HOME : VTAB 12: HTAB 16: PRINT "O.K. CIAO": 
VTAB 22: PRINT CHR3 (4);"RUN HELLO" 

6999 REM *** SUBROUTINE DI CREAZIONE 

7000 HOME : VTAB 13: FLASH : HTAB 12: PRINT "GENE 
RA PROGRAMMA": POKE 34,14:D$ = CHR3 (4): NO 
RMAL 

7010 PRINT D$;"OPEN QUIZFILE" 

7020 PRINT D$; "DELETE QUIZFILE" 

7030 PRINT D$;"OPEN QUIZFILE" 

7040 PRINT D$; "WRITE QUIZFILE" 

7050 PRINT "NEW": PRINT " LO AD MASTERQUIZ " :L = 200 
0 

7060 PRINT L;"DATA" ; N$ ; "," ; QM$ 

7070 FOR Q = 1 TO NQ: IF Q$(Q) = "DELETED" THEN 
NEXT 

7080 L = L + 10: PRINT L;" DATA ";Q$(Q);: FOR A = 
1 TO 4: PRINT ","A3(Q,A); : NEXT : PRINT 
7090 L = L + 10: PRINT L;" DATA ";AN(Q); : FOR A = 
1 TO 4: PRINT ", ";E3(Q,A); : NEXT : PRINT : 
NEXT 

7100 . PRINT "SAVE ";N3: PRINT "RUN INIZIO" 

7110 PRINT DS;"CLOSE QUIZFILE" 

7120 PRINT DS;"EXEC QUIZFILE" 


X 



Corso Italia 149 - 34170 GORIZIA - Tel. 0481/30909 

ThunderScan V. 2.7 


Ecco la nuova versione di ThunderScan, il sistema grafico 
per il vostro Mac! Semplicissimo da usare vi permette di 
trasformare qualunque immagine in un documento 
MacPaint. Ora perfettamente compatibile con tutte le 
ImageWriter e con la stampante LaserWriter. Notevolmente 
migliorata la qualità di stampa. Il 
software realizzato da Andy Hertzfeld, 
uno degli sviluppatori del Mac, 
permette a tutti di diventare bravi 
disegnatori. Un complemento 
indispensabile al vostro MAC. 

L'accessorio per MAC di maggior 
successo. 


FAT MAC 512K 


Con poca spesa vi diremo come fare per poter usare anche 
con il vostro MAC tutto quel software che gira solo sul 512. 
Disponibile anche in KIT. 

ACCESSORI APPLE 


NOVITÀ': Scheda Z-80 per Apple Ile. Ora anche per 
i possessori del Ile un coprocessore per poter disporre di 
tutto il soft sotto CP/M Lire 218.000 

Per Apple Ile: 

Espansione 64 K + 80 colonne a sole Lire 140.000 
Espansione 128 K + 80 colonne a Lire 190.000 

Joystick Per Apple Ile o Ile o plus a Lire 52.000 
Disk Drive aggiuntivo Apple Ile a Lire 390.000 

MODEMPHONE 303 


E' un telefono amplificato ed un Modem CCITT V.21 e BELL 
103 a 300 baud Auto answer, Manual Originate, Auto 
disconnect, Full Duplex, Auto Dial. Lire 290.000 


DISKETTE SONY 3" 1/2 

Ora disponibili anche in Italia i famosi floppy della Sony. 
Qualità eccezionale e sole L. 87.000 per 10 pezzi. 

Vendita per corrispondenza^ Tutti i prezzi sono 

comprensivi di IVA e di spese di spedizione. 

ELCOM C.so Italia 149 34170 GORIZlvT 

TEL. 0481/30909 - 32790 
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Listato 3 


1 REM MASTERQUIZ 

2 REM - 

9 REM *** PROGRAMMA TEST 

10 QN = 1 

20 POKE 34,0 

30 HOME : PRINT : PRINT : HTAB 14: INVERSE : PRIN 
T "PROGRAMMA TEST": NORMAL 
40 POKE 34,4 
50 READ QQ$,Q1$ 

60 Z$ = "NOME DEL TEST:" + QQ$:W = 10: GOSUB 1000 
70 Z$ = "SCRITTO DA:" + Q1$:W = 13: GOSUB 1000 
80 FOR I = 1 TO 3000: NEXT : HOME 
90 REM 

100 REM ORDINE DEI DATA=DOM.,ANI,AN2,AN3,AN4,RIS 
POSTA,SPIE.1,SPIE.2,SPIE.3,SPIE.4 
110 REM 
120 REM 
130 REM 

140 REM VAR=I,J:CONTATORI 
150 REM VAR=Q$:DOMANDE$ 

160 REM VAR=A$:POSSIBILI RISPOSTE 

170 REM VAR=A:NUMERO DELLA SCELTA CORRETTA 

180 REM VAR=W$:SPIEGAZIONI 

190 REM VAR=Z: LA SCELTA FATTA 

200 REM VAR=Z$:SI O NO 

210 REM VAR=S:PUNTEGGIO 

220 REM 

230 ONERR GOTO 1500 
240 DIM A$(4),W$(4) 

250 PRINT : PRINT : PRINT 

260 READ Q$: FOR I = 1 TO 4 : READ A$(I): NEXT : R 
EAD A: FOR I = 1 TO 4: READ W$(I): NEXT 
270 HOME 

280 Z$ = Q$: GOSUB 900 
290 PRINT 
300 FOR J = 1 TO 4 
310 PRINT J;") ";A$(J) 

320 NEXT J 

330 W = INT ( LEN (Q$) / 40) + 12: VTAB W 

340 GOSUB 700 

350 PRINT : PRINT 

360 IF A = Z THEN 440 

370 PRINT "PECCATO, HAI SBAGLIATO." 

380 PRINT 

390 Z$ = W$ (Z): GOSUB 900: PRINT : PRINT : PRINT 
400 VTAB 23: HTAB 5: PRINT "***UN TASTO PER CONTI 
NUARE** *"; : GET L$ 

410 HOME 

420 PRINT : PRINT : PRINT 
430 GOTO 490 

440 PRINT "BENE! E* ESATTO!":S = S + 1 
450 PRINT : PRINT : PRINT 

460 VTAB 23: HTAB 5: PRINT "***UN TASTO PER CONTI 
NUARE***";: GET L$ 

470 HOME 

480 PRINT : PRINT : PRINT 


490 QN = QN + 1: GOTO 250 
500 PRINT 

510 VTAB 10: HTAB 10 

520 PRINT "IL TEST E* FINITO." 

530 QN = QN - 1 
540 PRINT 
550 HTAB 10 

560 PRINT "IL TUO PUNTEGGIO E':"; INT ((S / (QN)) 
* 100 );"%" 

570 PRINT 
580 HTAB 10 
590 POKE 34,0 

600 INPUT "PROVI ANCORA?";Z$ 

610 IF Z$ - "S" OR Z$ = "SI" THEN RUN 
620 PRINT CHR$ (4);"RUN HELLO" 

699 REM *** SUBROUTINE DEL CURSORE 

700 C$ = "!/-\":C = 1 :R$ = CHR$ (34) :L = LEN (C 
$): SPEED= 185 

710 Z = 0:0 = 0 

720 VTAB W: PRINT "QUALE ?” 

730 VTAB W: HTAB 13 + O: PRINT MID$ (C$,C,1) 

740 K = PEEK ( - 16384): IF K < 128 THEN C = C + 
1 - L * (C = L): GOTO 730 
750 K = K - 128 

760 VTAB W: HTAB 13: POKE - 16368,0:Z$ = CHR$ ( 
K) :P = VAL (Z$) 

770 IF P > 0 AND P < 5 THEN HTAB 13: VTAB W: PRI 
NT P:Z = P:0 = 1: GOTO 730 
780 IF O THEN HTAB 13: VTAB W: PRINT Z;" " 

790 IF K = 13 AND O THEN SPEED= 255: RETURN 
800 GOTO 730 

899 REM *** SUBROUTINE PER SCRIVERE IN MODO P 
ULITO 

900 W = 0 

910 IF LEN (Z$) < 40 THEN W = W + 1: PRINT Z$: R 
ETURN 

920 C = 39 

930 IF MID$ (Z$,C,1) < > CHR$ (32) THEN C = C 

- 1: GOTO 930 

940 Zl$ = LEFT$ (Z$,C):Z$ = RIGHT$ (Z$, LEN (Z$ 
) - C) 

950 IF LEFT$ (Z$,l) = CHR$ (32) THEN Z$ = RIGH 
T$ (Z$, LEN (Z$) - 1): GOTO 950 
960 Z2$ = LEFT$ (Z$,l): IF Z2$ = "?" OR Z2$ = "! 

" OR Z2$ = "." THEN Z$ = Zl$ + " " + Z$:C = 
LEN (Zl$) - 1: GOTO 930 
970 PRINT Zl$:W = W + 1: GOTO 910 

999 REM *** PAGINA DI TITOLO 

1000 SPEED= 250:C - 5:N = 49200 

1010 L = INT ( LEN (Z$) / 2): FOR I = 1 TO L: VT 
AB W: HTAB 20-1: PRINT LEFT$ (Z$,I); RIGH 
T$ (Z$, I) : GOSUB 1100: NEXT 
1020 SPEED= 255: VTAB W: HTAB ABS ( INT ((40 - 
LEN (Z$)) / 2)): PRINT Z$: RETURN 
1100 FOR II = 1 TO C:Z = PEEK (N) - PEEK (N) + 
PEEK (N): NEXT : RETURN 

1499 REM *** ROUTINE DI ERRORE 

1500 IF PEEK (222) = 42 THEN 500 

1999 REM LA SERIE DI DATA INIZIA QUI 


a quest'ultimo le linee di DATA a 
partire dalla linea 2000 contenenti 
tutte le informazioni riguardanti il te¬ 


st. A questo punto il contenuto della 
memoria viene salvato in un file ap- 
plesoft chiamato con il nome scelto 


Il progetto Seraphim 

jl progetto- S^raphim è sorto negli Stati Uniti allo scopo di diffondere e 
stimolare fimpiego del computer neU’insegnamento della chimica. Nel 
progètto è inserita, la Divisione di Didattica Chimica, che ne cura la di¬ 
stribuzione nelle scuole italiane interessate, L’intero software/costituito 
daffM programmi didattici e da 1.Q utility, e scritto per òaldqlatori Apple. 
L'iniziativa non si prefigge scopi di lucro: i dischetti, contenenti diversi 
programmi, sono in vendita a 7.000 lire + Iva ciascuno. Per ogni ulte¬ 
riore informazione sui progetto e sulle modalità di acquisto dei dischetti 
rivolgersi al PgÒf cQiti|cppe ilrinprta,: Istituto Chimico fClamician'V Via 
Salmi 2, 40146 Bologna. I programmi pubblicati da Applicando sono 
invece aggiunti nei dischetti del Disk Service, senza maggiorazione di: 
prezzo. 


in precedenza dall'utente; quindi vie¬ 
ne ricaricato il programma "Inizio". 

Se prima di eseguire queste opera¬ 
zioni sul dischetto si trovavano ini¬ 
zialmente soltanto i programmi "Ini¬ 
zio", "Creator" e "Masterquiz", al 
termine saranno stati creati il file di 
testo "Quizfile" e un programma, 
del tutto autonomo, che presenta e 
gestisce il test creato. 

Da tenere presente che il file testo 
"Quizfile" è solo un gradino interme¬ 
dio che viene automaticamente modi¬ 
ficato ogni volta che si prepara un 
nuovo test. 

Il programma "Masterquiz" contie¬ 
ne le istruzioni per la gestione del te¬ 
st, è ben documentato al suo interno 
e non richiede particolare commenti. 

Giuseppe Innorta 


■■■■■■ 



























Programmazione umanizzata in Applesoft. 

Riassume tutte le tecniche che vengono comu¬ 
nemente impiegate dagli esperti di software per 
rendere più amichevoli i programmi. Vengono 
infatti affrontati tutti gli aspetti di queste tecni¬ 
che: sia quelli interni al software, come routine 
a prova d’errore o di formattazione dell’input, 
sia quelli esterni, come la documentazione e i 
manuali operativi. Il libro include un quiz mne¬ 
monico e un’agenda telefonica. 208 pagine, 
21.000 lire. 




Grafica e animazione con gli Apple //. Questo 
libro vuole guidare gli appassionati nella com¬ 
plessa materia della grafica e dell’animazione, 
prendendoli per mano dai primi rudimenti attra¬ 
verso numerosi esempi e applicazioni, fino a 
una completa comprensione dei principi e dei 
metodi della computer graphics. Gli esempi 
sono applicati alla famigla degli Apple //: Il Plus, 
//e e//c. 160 pagine, 17.000 lire. 




Il Basic Applesoft. In 16 capitoli, un metodo 
graduale che non presuppone alcuna cono¬ 
scenza di base. Tra gli argomenti trattati: uso 
interattivo del computer, sintassi dei comandi 
DOS, formattazione dell’input e dell’output, ar- 
ray, selezione e ordinamento dei dati, grafica a 
bassa e ad alta risoluzione, trattamento dei file 
su disco, debugging, riepilogo delle istruzioni, 
comandi e funzioni Applesoft. 232 pagine, 
19.000 lire. 



Guida al Macintosh. Fin dal primo approccio, il 
Mac è molto amichevole, e offre sul video una 
scelta tra varie opzioni, rappresentate da icone. 
In questo modo l’utente può scegliere una o più 
di queste funzioni potendo tranquillamente 
ignorare ciò che avviene all'Interno della mac¬ 
china e superando così la naturale diffidenza 
che a volte i computer ispirano. Lo strumento 
fondamentale per questo rapporto amichevole 
con il Mac è il mouse. 224 pagine, 22.000 lire. 


Il manuale MC68000. La famiglia di questo 
microprocessore trova un utilizzo vastissimo in 
workstation, sistemi CAD/CAM, sistemi di 
commutazione telematici, robot e controllori di 
processo, oltre che nei microcomputer di re¬ 
cente realizzazione, come Macintosh, Sinclair 
QL, HP 9816. Questo manuale è una preziosa 
fonte di informazione per gli appassionati che 
vogliono cimentarsi con la programmazione in 
Assembler. 168 pagine, 16.000 lire. 


Come usare MacWrite e MacPaint. Molto più 
di quanto facciano i manuali operativi allegati ai 
programmi, questo volume svela ogni trucco 
dei due applicativi per Macintosh, spiegando ed 
esemplificando particolari tecniche di disegno e 
di gestione dei testi, sempre nell’ottica di un 
uso integrato dei due programmi. Il libro è 
riccamente illustrato con immagini prodotte se¬ 
guendo fedelmente i consigli del testo, così da 
offrire ai lettori il risultato grafico di ogni se¬ 
quenza di operazioni. 192 pagine, 20.000 lire. 


Compilare e spedire il tagliando qui sotto a Applicando , Editronica Srl., Corso Montone 39, 20122 Milano 



Sì! Inviatemi subito, senza aggravio di spese 
postali, il o i libri contrassegnati con una 
crocetta. 

□ Il Basic e gli Apple II in pratica. 28.000 lire. 

□ Il manuale ProDOS. 25.000 lire. 

□ Programmazione umanizzata in Applesoft. 

21.000 lire. 

□ Grafica e animazione con gli Apple //. 17.000 lire. 

□ Il Basic Applesoft. 19.000 lire. 

□ Il Multiplan per il Macintosh. 26.000 lire. 

□ Il Basic Microsoft. 38.000 lire. 

□ Guida al Macintosh. 22.000 lire. 

□ Il manuale MC68000. 16.000 lire. 

□ Come usare MacWrite e MacPaint. 20.000 lire. 

□ Genitori nell’era del computer. 19.000 lire. 

□ Computer Graphics. 39.000 lire. 

□ Pascal. Guida per programmatori. 29.000 lire. 
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I cavi di Mac Plus 

Ogni cambiamento provoca dei problemi, grandi o 
piccoli: anche l'uscita di Macintosh Plus ne comporta 
qualcuno, soprattutto per quanto concerne le due usci¬ 
te seriali. Infatti, mentre nel Mac 512K esse sono del 
tipo Canon DB a 9 poli, nel nuovo Mac Plus sono 
del tipo MiniDin a 8 poli. E' vero che la Apple farà 
di tutto perché si possano avere cavi per l'Image I e il 
nuovo Mac, o adattatori per utilizzare sul Plus i con¬ 
nettori AppleTalk per il Mac 512K. 

A ogni buon conto, potete utilizzare lo schema che 
pubblichiamo in questa pagina per crearvi da soli i ca¬ 
vi che vi possono servire; ricordiamo ancora una vol¬ 
ta che le uscite seriali sono del tipo minidin, quindi 
bisogna avere a disposizione dei connettori minidin 
maschi a 8 poli, dei connettori Canon DB a 9 e a 25 
poli e un po' di cavo almeno a 8 fili. A è la numera¬ 
zione dei piedini del connettore maschio minidin a 8 
poli, B quella del Canon femmina a 9 poli e C quella 
del Canon Maschio a 25 poli; infine la piedinatura in 
basso a sinistra si riferisce al connettore minidin 8 
poli maschio, visto dal lato saldature. 


Schema di r ealizzazion e dei cavi per Macintosh Plus 

B A A 

> 7 1-> 2 

>6 2 -> 1 

>9 3-> 5 

> 3 5-> 3 

>5 6 - >8 

> 8 7-> 7 

>4 8-> 6 

8 7 6 

c • • • 

> 6 5 4 3 

>20 • • • 

>3 2 1 

>7 • • 

> 2 



Mac e i circuiti stampati 

Ogni giorno che passa Macintosh, nelle sue due 
versioni più aggiornate, si arricchisce di nuovi pro¬ 
grammi sempre più specifici. McCAD™ ha lo scopo 
specifico di risolvere il problema di chi deve, come 
routine di lavoro, disegnare circuiti stampati e produr¬ 
re la stampa su pellicola (carta da lucido o in acetato) 
per eseguire il cosiddetto master del circuito. 

Questo programma si presenta come un Mac Draw 
specializzato; infatti all’apertura presenta, oltre al ti¬ 
pico menù pull-down, un menù verticale di strumenti 
da cui poter selezionare quanto serve al disegno del cir¬ 
cuito. Una caratteristica sicuramente interessante è il 
fatto di poter lavorare contemporaneamente sia sul la¬ 
to delle saldature che sul lato in cui trovano posto i 
componenti elettronici, e quindi con stampati su dop¬ 
pio strato; tuttavia per chi avesse necessità di lavorare 
con circuiti molto complessi è possibile lavorare an¬ 
che su due strati intermedi tra i due precedenti, esatta¬ 
mente come quando si usano le cosiddette schede a wa¬ 
fer, in modo da avere a disposizione ben quattro strati 
di lavoro. Tra i vari strumenti che McCAd™ mette a 


disposizione, oltre alla possibilità di disegnare rettan¬ 
goli (per le basette con cui si intende operare fino al 
formato massimo di 30 x 30 pollici) e linee di vario 
spessore o di introdurre testi in qualsiasi punto del di¬ 
segno, è possibile scegliere le piazzole tonde, ovali o 
quadrate da sistemare nel circuito a piacimento; il tut¬ 
to ovviamente con la possibilità di scegliere la scala 
di lavoro per dimensionarlo a video a piacimento. In¬ 
fatti esistono delle funzioni di zoom che permettono 
di ingrandire il disegno fino a dieci volte l'originale, o 
rimpicciolirlo fino a 4 volte. Sempre nel menù degli 
strumenti grafici è possibile selezionare le piazzole, 
sia in orizzontale che in verticale, per i circuiti inte¬ 
grati da 6 a 40 piedini, oltre alle piazzole per i connet¬ 
tori Canon DB da 9 a 32 contatti, o i fori multipli. 
La facilità con cui si possono selezionare i vari stru¬ 
menti e distribuirli sulla piastra da disegnare è parago¬ 
nabile a quella che si ha lavorando con Draw, quindi 
risulta molto rapido ed efficiente, in quanto un dise¬ 
gnatore può variare un particolare anche all'ultimo 
momento prima di mandare in stampa il circuito dise¬ 
gnato. 

Per quanto riguarda la stampa il programma è predi¬ 
sposto per lavorare, oltre che con l’ImageWriter, con 
la LaserWriter, con Plotter a pennini (tutti i modelli 
della Houston e della Hewlett-Packard, il PenMan e il 
plotter Apple, ovviamente) e con Foto-Plotter del ti¬ 
po Gerber. Tuttavia la caratteristica più importante 
del programma consiste nel fatto di poter creare a di¬ 
screzione dell'utente una libreria di pezzi di circuiti, e 
quindi di poter disporre di un archivio già predisposto 
di circuiti elementari che possono essere presi e siste¬ 
mati a secondo dei bisogni in un circuito più comples¬ 
so. Della stessa casa esiste, e sarà disponibile a bre¬ 
vissimo, un programma complementare a McCAD™ 
chiamato Autoruler che, partendo dal disegno del cir¬ 
cuito elettrico, crea, ottimizzando gli spazi, il circuito 
stampato in automatico. 

Il costo di McCAD™, importato dall’Eurotron e di¬ 
stribuito in esclusiva per l'Italia dalla New Line Srl, 
Via GJFrua 12, 20149 Milano, è di 1.250.000 lire. 

Programmare, che passione 

Si è sempre parlato di Macintosh come strumento 
da usare con i suoi software già pronti, ma mai di po¬ 
ter programmare Mac a seconda dei propri bisogni. E- 
sistono strumenti di sviluppo come il Microsoft Ba¬ 
sic, l’Aztec C , eccetera, ma sono sistemi sufficiente- 
mente complicati da far desistere il più volenteroso. 
Tuttavia è possibile trovare dei sistemi meno compli¬ 
cati e altrettanto validi. Uno di questi è il MacExpres- 
s, il cui scopo è quello di ridurre il tempo di sviluppo 
di un programma che sfrutti l'interfaccia uomo-mac¬ 
china di Macintosh. Il tutto consiste nell'utilizzare u- 
na struttura object-oriented per creare le varie procedu¬ 
re del programma, e poi riunirle con quelle procedure 
standard come i menù pull-down, le finestre, i box di 
dialogo e i pulsanti, che sono già contenute in questo 
sistema, e che quindi non devono essere create ex-no¬ 
vo. Questo sistema è molto semplice da usare, e in al¬ 
cuni punti anche divertente. Per maggiori informazio¬ 
ni rivolgetevi alla ALSoft Ine., PO Box 927, Spring, 
Telex 77383, Tel. (713) 353-1510, Stati Uniti. 

Alfonso Scoppetta 
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Vorrei risposta 

In riferimento a un mio 
espresso indirizzato alla 
vostra redazione dalle po¬ 
ste centrali di Genova in 
data 16/8/1985, mi chiedo 
se voi rispondiate a tutte 
le lettere che vi pervengo¬ 
no. Ho notato infatti che 
la vostra redazione ha ri¬ 
sposto a lettere su argo¬ 
menti trattati in numeri 
della rivista successivi al 
mio espresso. Vi ripropon¬ 
go per la seconda volta il 
mio problema. 

Nella rubrica Applihelp 
del n.18 di Applicando ho 
scoperto che il sistema o- 
perativo Prodos utilizza i 
64K della scheda di espan¬ 
sione alla stessa maniera 
di un floppy; sarei interes¬ 
sato a conoscere una routi¬ 
ne, possibilmente in Ba¬ 
sic per poter essere intro¬ 
dotta nel listato di un pro¬ 
gramma, che permetta di 
copiare un file da un drive 
alla zona di memoria e vi¬ 
ceversa in maniera automa¬ 
tica senza dover ricorrere 
al classico metodo manua¬ 
le offerto dal sistema ope¬ 
rativo. 

G. M. Reva - Genova 

Tendenzialmente cer¬ 
chiamo di rispondere a tut¬ 
te le lettere che giungono 
in redazione; purtroppo ne 
riceviamo a centinaia e 
non possiamo material¬ 
mente rispondere a tutte, 
anche perché ne riempi¬ 
remmo il giornale. Non ri¬ 
spondiamo, ovviamente, 
se il problema nel frattem¬ 
po è già stato risolto nella 
risposta a un altro lettore 
oppure nelle nostre rubri¬ 
che. (Comunque non tut¬ 
ti, per fortuna, ci manda¬ 
no come ha fatto lei un e- 
spresso con tassa a carico 
per sollecitare la risposta.) 

Per rispondere al suo 
quesito, non è chiaro cosa 
intenda per automatico, 
perché tutte le operazioni 
cosiddette automatiche sul 
computer sono sempre 
soggette a un comando 


manuale che le attivi: per 
esempio dovrà ben scrive¬ 
re o scegliere quale file tra¬ 
sferire, dovrà scrivere dove 
prelevare il file e dove sal¬ 
varlo, eccetera. Per copia¬ 
re un file da un disco a un 
altro oppure da un disco al¬ 
la RAM (si chiamano co¬ 
sì in Prodos i 64K di me¬ 
moria aggiuntiva) non è 
possibile farlo in modo di¬ 
retto, ma occorre sempre 
caricarlo prima in memo¬ 
ria per poi salvarlo dove 
desideriamo. I programmi 
di copiatura che vengono 
forniti con i sistemi opera¬ 
tivi sono i più adatti per 
queste operazioni e co¬ 
munque, dato l'input giu¬ 
sto, copiano in modo auto¬ 
matico sia un singolo file 
sia un intero dischetto. 

Giorni fuori 
posto 

Ho trascritto con MBA- 
SIC 2 il primo listato per 
Mac, "Calendario Perpe¬ 
tuo", apparso su Applican¬ 
do n. 22 (e spero non sia 
fultimo), e mi dà i risulta¬ 
ti che vi allego: come po¬ 
tete vedere nella prima set¬ 
timana di ciascun mese la 
prima riga mette fuori po¬ 
sto il "!" e di conseguenza 
il numero del giorno. Ho 
verificato più volte la tra¬ 
scrizione e l’ho trovata e- 
satta. C’è nel listato qual¬ 
che informazione da cor¬ 
reggere o da aggiungere? 

Carlo Enzo - Venezia 

L'inconveniente da lei la¬ 
mentato è dovuto a un er¬ 
rore di interpretazione alla 
linea 410. Gli spazi vuoti 
tra virgolette dopo l'istru¬ 
zione LPRINT sono due. 
Senza volere, lei ha battu¬ 
to solo uno spazio. Cor¬ 
regga la linea e tutto fun¬ 
zionerà perfettamente. L'i¬ 
struzione di questa linea 
permette di stampare il "!" 
quando la casella non corri¬ 
sponde ad alcun numero 
del mese. Infatti il "!” ri¬ 
sultava spostato solo nel¬ 


le righe con caselle vuote. 

Questo per Mac è il pri¬ 
mo di una lunga serie. 

Errore 
in edicola 

Ho pazientemente battu¬ 
to il programma Apple e- 
dicola, che mi sarebbe sta¬ 
to molto utile per catalo¬ 
gare gli articoli della vo¬ 
stra bella rivista e non so¬ 
lo quelli. Ma il program¬ 
ma è inservibile per errore 
alla linea 6520. Ho tenta¬ 
to tutte le correzioni ma 
sempre senza successo. 
Cosa devo fare? 

A. Brunetti - Torino 

Purtroppo, non avendo 
lei specificato il tipo di er¬ 
rore rilevato alla linea indi¬ 
cata, non è possibile sug¬ 
gerire una eventuale corre¬ 
zione. Premesso che, co¬ 
me da noi già altre volte 
chiarito, i listati pubblica¬ 
ti sulla rivista sono la co¬ 
pia fotografica della stam¬ 
pa del listato stesso fatta 
dopo il controllo del fun¬ 
zionamento del program¬ 
ma, tenga conto che l'i¬ 
struzione alla linea 6520 e- 
segue la lettura dei dati 
memorizzati in precedenza 
nel file creato con l'istru¬ 
zione n.l che appare nel 
menù principale del pro¬ 
gramma: INIZIALIZZA 

UN FILE. 

Questa opzione è la pri¬ 
ma da usare per creare il fi¬ 
le di lavoro. Se si utiliz¬ 
za l'opzione 6 prima della 
1, il programma legge un 
file senza dati e segnala er¬ 
rore. Segua la procedura 
indicata e, in caso di erro¬ 
re, ricontrolli il listato 
confrontandolo con quello 
pubblicato su Applicando 
11 a pag. 8. 

Con il Lemon 

Da circa otto mesi pos¬ 
seggo un Lemon II (com¬ 
patibile Apple) monopro¬ 
cessore, 64K di memoria, 
corredato da un solo disk 


drive. Vorrei sapere: 

1) com’è il testo della li¬ 
nea 1520 del programma 
Claustrofobia pubblicato 
sul numero di ottobre di 
Applicando a pag. 39; 

2) se i programmi Rega¬ 
ta e Bermuda Race, da voi 
distribuiti, si possono tro¬ 
vare in commercio presso 
i negozi rivenditori di pro¬ 
dotti Apple; 

3) qual è il grado di com¬ 
patibilità del mio personal 
computer con i program¬ 
mi sopra citati. 

M. Fatarella - Firenze 

Non ci è chiaro il per¬ 
ché della prima domanda. 
La linea 1520 non esiste 
nel listato, che è giusto 
così. Forse perché è stato 
scritto a passo dieci (per e- 
sempio10-20-30 ecc.) e 
dalla linea 1510 si salta al¬ 
la linea 1530? Il passo 
nella numerazione delle li¬ 
nee di un programma non 
è legato a nessuna rgvola 
fissa. Ognuno sceglie la 
numerazione che desidera. 
Normalmente, quando si 
scrive un programma, si u- 
sa numerare le linee ogni 
dieci o meglio ogni cin¬ 
quanta per poter inserire e- 
ventuali linee di istruzioni 
aggiuntive e non essere co¬ 
stretti a rinumerare il pro¬ 
gramma per fare spazio tra 
le righe. Tenga presente 
che sui computer Apple 
un programma numerato a 
passo uno occupa minor 
memoria dello stesso pro¬ 
gramma numerato a passo 
dieci. 

I programmi Bermuda 
Race e Regata sono distri¬ 
buiti anche nei migliori 
Apple Center. Il suo per¬ 
sonal è compatibile con 
tutti i programmi che gira¬ 
no su Apple con la sua 
stessa configurazione. 

Come disegnare 

Posseggo un Lemon II 
e ho acquistato di recente 
il programma Designer 
pubblicato sul n. 16 di 
Applicando e lo trovo inte- 
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ressante. Vi sono però due 
cose che non ho ben com¬ 
preso: Incaricata una figu¬ 
ra attraverso il tasto "G", 
appare, ma su di essa non 
sono possibili operazioni 
di scala o di rotazione; 2) 
quando si carica una se¬ 
conda figura la prima 
scompare dal video. Inol¬ 
tre mi risulta difficoltoso 
memorizzare un file di vet¬ 
tori, cioè salvare una figu¬ 
ra nella funzione "TAVO¬ 
LA FIGURE UTENTE". 
Forse se riuscissi a salva¬ 
re la figura nella "TAVO¬ 
LA UTENTE" riuscirei a 
ruotarla o a cambiare 
scala. 

C. Vescovi - Cremona 

Primo quesito: scala e 
rotazione influenzano sol¬ 
tanto le singole figure pre¬ 
levate da una Tavola delle 
figure (SHAPE/TABLE) 
o disegnate direttamente. 
In questo programma fun¬ 
zionano solo per la figura 
che lampeggia sullo scher¬ 
mo. Quando la figura vie¬ 
ne bloccata con il tasto D, 
e quindi diventa fissa, non 
è più possibile, con que¬ 
sto programma, cambiar¬ 
ne i parametri. Questi van¬ 
no definiti durante la fase 
di disegno della figura stes¬ 
sa. Per il secondo quesito 
è giusto che avvenga così, 
perché quando si salva la 
figura con il tasto P, vie¬ 
ne salvata su disco Unterà 
pagina grafica, quindi Un¬ 
terò schermo: sia la parte 
che comprende il disegno 


sia la parte vuota intorno 
a esso. Quando carica una 
figura in memoria con il 
tasto G, viene ricaricata 
Unterà pagina grafica che 
si sovrappone a quella esi¬ 
stente cancellando le figu¬ 
re esistenti sullo schermo. 

La TavolalUtente è un 
insieme di figure costruite 
dall'utente stesso con il 
programma Apple/Illustra- 
tore pubblicato sul n. 15 
della rivista come la tavo¬ 
la elettronica che si trova 
nel dischetto da lei acqui¬ 
stato. Nella funzione Ta¬ 
vola/Utente del program¬ 
ma Designer lei salva l'in¬ 
tero schermo e non la sin¬ 
gola figura; questo può es¬ 
sere fatto con il program¬ 
ma precedente. 

Sistema base 

Possiedo un Apple Ile 
da poco e sono ancora ine¬ 
sperto, per cui ho dei que¬ 
siti da proporvi. Vorrei in¬ 
nanzitutto sapere se il pro¬ 
gramma Sistema Base, 
pubblicato su Applicando 
n. 3, può girare sul Ile. 
Nel caso vi fossero modifi¬ 
che da apportare gradirei 
conoscerle, Ho già digita¬ 
to e controllato il pro¬ 
gramma e non funziona: o- 
gni volta che tento di apri¬ 
re un file mi appare sul vi¬ 
deo Syntax Error e 
BREAK IN 1330. Inoltre 
il programma AIUTO mi 
indica con Syntax Error 
tutte le righe che conten¬ 


gono l’istruzione &, cioè 
le righe: 5240, 6694, 
7370. 

Un altro problema l'ho 
avuto con Illustratore ( Ap¬ 
plicando n. 15). Quando 
mi accingo a creare delle 
tavole figure con dei file 
vettori precedentemente 
creati, dopo aver introdot¬ 
to il nome del secondo fi¬ 
le mi appare il messaggio 
NO BUFFER AVAILA- 
BLE. Inoltre il program¬ 
ma ha cominciato a fun¬ 
zionare, almeno in parte, 
quando ho eliminato dalla 
riga 3510 (e analoghe) il 
carattere V'. Ne ho dedot¬ 
to che in tali istruzioni 
l’Applesoft non interpreta 
il carattere 7’. 

Gradirei infine sapere se 
esiste un manuale tecnico 
completo per Apple Ile e 
per l’assembler del CPU 
65C02. 

A. Trezzi - Ossona (MI) 

I programmi da lei citati 
girano sicuramente sul Ile 
con sistema operativo 
DOS 3.3. Da quanto su e- 
sposto intuiamo che lei 
ha copiato i programmi in 
ProDOS. Per usare questo 
sistema operativo occorre 
fare alcune modifiche al li¬ 
stato. 

L'errore riscontrato alla 
linea 1330 è dovuto olfat¬ 
to che il programma apre 
due file con lo stesso no¬ 
me e per differenziarli inse¬ 
risce in coda al primo un 
CTRL-B che equivale alla 
variabile BC$, che viene 


posta uguale al carattere di 
controllo in linea 530; il 
ProDosnonaccetta caratte¬ 
ri di controllo come identi¬ 
ficatori dei file. Una solu¬ 
zione potrebbe essere quel¬ 
la di porre BC$ uguale a 
un numero (messo tra "" 
essendo BC$ una variabile 
stringa) oppure usare l'o¬ 
pzione di conversione che 
si trova nel disco in Pro¬ 
Dos Utilities di sistema e 
convertire il programma 
in DOS 3.3. 

I SYNTAX ERROR da 
lei riscontrati con il pro¬ 
gramma Aiuto di fatto 
non sono errori, perché la 
lettera può essere usa¬ 
ta nell'Apple (una volta 
programmata, veda l'Ap- 
plihelp n. 19 pag. 117) 
per richiamare una routine 
in Assembler come viene 
fatto da questo programma 
nelle linee da lei indicate. 
La stessa cosa vale per il 
programma Illustratore 
che così come è stato scrit¬ 
to gira soltanto con il si¬ 
stema operativo DOS 3.3. 

Per la scelta dei manuali 
tecnici per il Ile, tenga 
d'occhio le pagine di re¬ 
censione libri e quelle di 
pubblicità sui diversi nu¬ 
meri di Applicando: potrà 
scegliere quello che fa più 
al caso suo. 

Hard copy 
Hi-res 

Vorrei avere delle infor¬ 
mazioni in merito al pro- 


NOTA IMPORTANTE. 

Riportiamo l’esatta pinatura dei collegamenti dei cavi tra Apple Ile, Ile e Macintosh. 
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L'angolo del reclamo 


Applicando apre, a partire da questo numero, un 
nuovo spazio per i suoi lettori, sempre più numerosi 
e giustamente esigenti: è una bacheca sulla quale 
affiggere osservazioni e appunti critici che meritino 
di essere resi noti a tutti gli altri utenti Apple, purché 
costruttivi e civili come questo, giuntoci pochi giorni 
or sono da un lettore di Roma. F il testo di una sua 
lettera alla Apple e alla Technimedia, indirizzata per 
conoscenza anche alla redazione e ai lettori di Appli¬ 
cando. Ci auguriamo che pubblicandola nellAngolo 
del reclamo ottenga quanto prima una risposta, che 
non mancheremo certo di pubblicare, dalle case pro¬ 
duttrici interessate. 

Sono un altro sfortunato possessore della vostra 
stampante Scribe, acquistata solo nel novembre 
scorso. Una macchina niente male, che però avete 
pensato bene di mettere fuori uso cessando la distri¬ 
buzione degli appositi nastri (non a colori, s'inten¬ 
de). Le varie catene commerciali di rivenditori della 
città, da Computer Center a Bit Computers e altri si 
esprimono in termini vaghi e ambigui circa la possibili¬ 
tà che questi nastri possano essere nuovamente re¬ 
peribili. Altrettanto inattendibili si mostrano al vostro 
centro commerciale in via Poggio Laurentino. 

Ritengo che questo tipo di politica alla lunga non 
paghi e comunque mi farò premura di "pubblicizzare 
adeguatamente" i vostri prodotti presso i miei nume¬ 
rosi colleghi e presso il club di cui faccio parte. 

Sandro Salomoni 


gramma Hard copy pagine 
in alta risoluzione (Appli¬ 
cando n. 8): è compatibile 
con il mio sistema (Apple 
Ile con stampante Epson 
RX 80) e 2) è utilizzabile 
con qualsiasi programma? 
Inoltre vorrei sapere se il 
programma PFS Graph è 
compatibile con Apple- 
works e se permette la 
stampa di grafici col mio 
sistema. 

D. Grassi - Mendrisio 

Il programma in questio¬ 
ne funziona con le stam¬ 
panti Epson parallele. Es¬ 
sendo la sua stampante se¬ 
riale, in quanto collegata a 
un Ile che ha solo uscite 
di questo tipo, il program¬ 
ma non è compatibile. Il 
PFS Graph è scritto in lin¬ 
guaggio Pascal mentre 
l'Appleworks è in ProDos 
e quindi non sono compa¬ 
tibili. 

Niente voce 
per il c 

1) Sul numero di otto¬ 
bre di Applicando avete 
pubblicato un programma 
di sintesi vocale facendo ri¬ 
ferimento a un ingresso 
per registratore; poiché 
posseggo un Apple Ile 
vorrei sapere come si può 
collegare a esso il suddet¬ 
to registratore. 2) Nel pro¬ 
gramma sulla Calcolatrice 
RPN si fa riferimento a 
un listato n. 2, necessario 
per far girare il program¬ 
ma sul Ile, che non è sta¬ 
to pubblicato. 3) Il pro¬ 
gramma Pompieri, che ho 
copiato credo senza errori, 
si blocca subito dopo aver 
disegnato la schermata ini¬ 
ziale; vorrei sapere se c'è 
qualche eventuale modifi¬ 
ca da apportare al program¬ 
ma. 4) Dato che ho visto 
un One liner in Basic, del 
quale davate la locazione 
di partenza e la lunghezza 
per poterlo salvare diretta- 
mente in linguaggio mac¬ 
china, vorrei sapere se è 
possibile e qual è il meto¬ 


do per poter salvare in lin¬ 
guaggio macchina dei pro¬ 
grammi in Basic anche 
più complessi, senza usa¬ 
re compilatori quali il Ta- 
sc. 5) Vorrei sapere se esi¬ 
stono, sul mercato italia¬ 
no o americano, schede di 
qualunque tipo (espansio¬ 
ni di memoria, sistemi o- 
perativi) da poter applicare 
all'Apple Ile. 

Nicola Selvaggi 

1) Per II programma 
Sintesi vocale abbiamo 
già pubblicato una errata 
corrige sul n. 22 a pag. 
116 nella quale ci scusa¬ 
vamo con i lettori per l'er¬ 
rore commesso avendo la¬ 
sciato, nel riquadro all'ini¬ 
zio del listato, la voce Ile 
come compatibilità. 

2) Ci scusiamo con lei e 
con tutti i lettori per la di¬ 
menticanza e riportiamo 
le linee da modificare: 

110 IF A$ = THEN 
A$ = "+" 

120 IF A$ = THEN 

2040 PRINT "+ OR ; AD¬ 
DIZIONA" 

2060 PRINT "* OR : 
MOLTIPLICA" 

3) Il programma Pompieri 
non necessita di alcuna 
modifica per girare su Ile, 
se non di quelle indicate 
nel corso dell'articolo sui 
tasti per la gestione del 
gioco e precisamente oc¬ 
corre modificare la linea 
6310 del listato INFER¬ 
NO OBJ come indicato a 
fianco del listato riportato 
a pag. 68 di Applicando 
n. 16. E' necessario co¬ 
munque che controlli il li¬ 
stato attentamente, perché 
se disegna solo la videata 
iniziale è stato commesso 
un errore di copiatura nel¬ 
le prime righe del pro¬ 
gramma, e cioè da 200 a 
300, oppure nel trascrive¬ 
re i DATA in coda al pro¬ 
gramma stesso. 

4) I programmi in Basic 
non si possono salvare di¬ 
rettamente in linguaggio 
macchina senza trasfor¬ 
marli con un compilatore 


tipo TASC. E' possibile 
salvare su disco, in lin¬ 
guaggio macchina, la par¬ 
te di memoria contenente 
il programma in Basic che 
tuttavia verrà salvata in bi¬ 
nario non eseguibile diret¬ 
tamente; cioè non sarà 
possibile far girare il pro¬ 
gramma con l'istruzione 
BRUN, ma occorrerà rica¬ 
ricarlo in memoria con l'i¬ 
struzione BLOAD e quin¬ 
di dare il RUN. Ecco le i- 
struzioni passo passo per 
eseguire quanto detto 
sopra: 

• Caricare in memoria il 
programma in Basic con 
LOAD. 

• Entrare in Monitor con 
CALL -151. 

• Battere 68 67 seguito da 
<RETURN> (puntatori i- 
nizio programma in Ba¬ 
sic). 

• Battere AF B0 e <RE- 
TURN> (puntatori fine 
programma in Basic). 

• Battere BSAVE nome 


programma, A$indirizzo 
partenza prògramma(loca¬ 
zioni 68 67), L$lunghezza 
programma (differenza fra 
il contenuto delle locazio¬ 
ni AF B0 e 68 67). Esem¬ 
pio: se il contenuto di 68 
67 corrisponde a 08 01 e 
il contenuto di B0 AF cor¬ 
risponde a 20 F5, la diffe¬ 
renza è 17F4 (sempre in e- 
sadecimale). Per salvare il 
nostro programma dovre¬ 
mo battere BSAVE PRO¬ 
VA, A$801, L$17F4. 

Quando si darà il comando 
BLOAD PROVA, il pro¬ 
gramma si caricherà in me¬ 
moria nella stessa zona do¬ 
ve era stato scritto. 

5) Sul mercato america¬ 
no esistono sia schede di e- 
spansione di memoria per 
Ile fino a un Megabyte sia 
schede Z-RAM per siste¬ 
mi CP/M; ecco l'indiriz¬ 
zo: AE Applied Enginee¬ 
ring, P.O. Box 798, Car- 
rollton, Texas 75006, 
Tel.(214) 241-6060. 
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Dischetto utility per Dos 3.3 

L'Apple Ile e il nuovo Ile vengono venduti con il 
sistema operativo ProDos che comprende un dischetto 
chiamato "Utilities di Sistema". Con le opzioni in es¬ 
so contenute è possibile: 

• trasferire un file da un dischetto a un altro in tutti e 
tre i sistemi compatibili con l’Apple: Dos, ProDos, 
Pascal; 

• convertire i file da Dos a ProDos e viceversa; 

• modificare la configurazione standard delle uscite se¬ 
riali per stampante e modem e anche scambiarle tra 
di loro; 

• formattare i dischi nel sistema Dos, ProDos, Pascal. 

Queste sono solo alcune delle molteplici possibili¬ 
tà offerte dal dischetto "Utilities di Sistema", tuttavia 
c’è un piccolo problema: mentre per il sistema Pro¬ 
Dos e Pascal dopo aver formattato il dischetto occorre 
memorizzare su di esso i file necessari affinché alla 
riaccensione della macchina sia possibile ricaricare in 
memoria il sistema operativo scelto (per esempio Pro¬ 
Dos e Basic.System per il ProDos), nel caso del Dos 
normalmente il sistema operativo viene memorizzato 
sul dischetto all’atto della sua formattazione, perché 
non è possibile caricarlo in un secondo tempo. 

Purtroppo il dischetto "Utilities di Sistema" format¬ 
ta il dischetto in Dos senza inserire il sistema operati¬ 
vo trattandolo come un disco dati e non come un di¬ 
sco di avvio (boostrap). L’utente quindi, se non pos¬ 
siede già un altro dischetto in Dos contenente il siste¬ 
ma operativo (come i dischetti di Applicando ), non 
può utilizzare questo disco per memorizzarvi i pro¬ 
grammi copiati da Applicando o i propri programmi 
scritti in Dos. Applicando ha pensato di ovviare all’ 
inconveniente fornendo (vedi Disk Service) un dischet¬ 
to in Dos conil sistema operativo e alcune utility 
(descritte nel paragrafo seguente "Routine e procedu¬ 
re") per gestire i file in Dos. 

Non troverete il D.O.S 3.3 in nessun CATALOG e 
in nessun elenco di programmi, perché è un sistema o- 
perativo per la gestione del Drive. E’ già inserito in 
tutti i dischetti di Applicando e occupa le prime tracce 
del dischetto stesso. Questo sistema operativo viene 
caricato automaticamente in memoria dal dischetto, al¬ 
l'accensione del computer, e con esso potete copiare 
tutti i programmi pubblicati su Applicando. Per ini- 
zializzare un nuovo dischetto con il D.O.S 3.3 inseri¬ 
te nel drive il disco DOS.UTILITIES e accendete il 
computer. Dal Menù principale scegliete l’opzione FI¬ 
NE e battete RETURN; battete quindi NEW seguito 
da RETURN. Sostituite il dischetto nel drive con uno 
nuovo da inizializzare e battete INIT HELLO seguito 
da RETURN. Il drive verrà attivato e, dopo circa un 
minuto, il nuovo dischetto sarà pronto per essere uti¬ 
lizzato e conterrà il sistema operativo D.O.S 3.3. 

Routine e procedure 

COPY A è uno dei più importanti programmi del 
D.O.S 3.3 e permette di duplicare un intero dischetto. 

Battuto RUN COPY A, dopo alcuni secondi il com¬ 
puter presenterà sul video alcune semplici domande al¬ 
le quali potete rispondere battendo RETURN per accet¬ 


tare i dati visualizzati, oppure modificare i dati stessi 
battendo, a ogni domanda, il numero relativo alla vo¬ 
stra configurazione seguito da RETURN. Sistemati i 
dati,inserite il dischetto originale da duplicare e il di¬ 
schetto nuovo nei drive indicati, battete RETURN e 
la copia sarà pronta in un minuto e trenta secondi. 
Non è necessario che il disco nuovo sia già inizializza- 
to, penserà il programma a farlo. 

CHAIN è una routine che permette di concatenare 
due programmi in Applesoft senza cancellare le varia¬ 
bili e le matrici del primo programma che così posso¬ 
no essere gestite dal secondo. Questa possibilità è uti¬ 
le quando si ha un programma molto lungo e la me¬ 
moria dell’Apple è insufficiente. La procedura da se¬ 
guire è la seguente: 

• si spezza il programma in due parti indipendenti che 
possano funzionare autonomamente. 

• si inseriscono queste due righe di istruzione nel pro¬ 
gramma 1, da eseguirsi per ultime: 

20000 PRINTCHR$(4); "BLOAD CHAIN,A520" 
20010 CALL 520"SECONDA PARTE" 

Le due istruzioni possono avere qualsiasi numero di 
riga, ma devono susseguirsi una dopo l'altra nel pro¬ 
gramma come indicato. Il programma CHAIN deve 
essere presente nel dischetto contenente i programmi 
da concatenare. 

RENUMBER è un'utility che consente di cambiare 
la numerazione delle linee di un programma, o di par¬ 
te di un programma, in modo automatico, compresa 
la risistemazione di tutti i rimandi GOTO e GOSUB. 
Inoltre è disponibile un’altra opzione (MERGE) che 
permette di concatenare due programmi che devono la¬ 
vorare insieme e che sono stati scritti in due blocchi 
diversi. Battete RUN RENUMBER; la videata inizia¬ 
le vi presenterà le istruzioni del programma; battete 
RETURN e sarete pronti per il suo utilizzo. Vi dia¬ 
mo comunque due esempi. 

• Renumber: battete &Fnl,In2,Sn3,En4 dove ni è 
il numero di linea dal quale volete che parta la nuova 
numerazione, n2 l’incremento, cioè la differenza tra u- 
na linea e l'altra, n3 il numero di linea di partenza del 
programma da rinumerare, n4 il numero deH’ultima li¬ 
nea da rinumerare del programma. Se n4 coincide con 
l'ultima linea del programma, può anche essere omes¬ 
sa (per esempio &F10,I20,S20,E3000). 

• Merge: Caricate con LOAD il primo blocco del 
programma che volete concatenare. Battete &H e il 
programma verrà spostato in una zona di memoria di¬ 
versa da quella di caricamento dei programmi. Carica¬ 
te con LOAD il secondo blocco del programma da 
concatenare e battete &M. Fate il LIST e vedrete il li¬ 
stato di un unico programma. Fate attenzione a che il 
secondo blocco abbia i numeri di linee del programma 
superiori al primo. In caso contrario il programma vi 
segnalerà la coincidenza dei numeri di linea e l'impos¬ 
sibilità del loro concatenamento. 

FID è un'utility che permette di effettuare il trasferi¬ 
mento di programmi, sia file di testo, sia scritti in as¬ 
sembler, sia in Applesoft Basic, da un disco a un al¬ 
tro. Il disco di destinazione dei programmi deve essere 
formattato in precedenza. Contiene otto opzioni: 1) 
Copia File; 2) Catalog; 3) Spazio utile sul disco; 4) 
Sblocco del file (UNLOCK); 5) Blocco del file (LO- 
CK); 6) Cancellazione dei files (DELETE); 7) Ripri- 
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stino dello slot e dell'unità (RESET); 8) Verifica dei 
file (VERIFY); 9) Quit (fine programma). Scelta l'o¬ 
pzione, viene chiesto il numero dello Slot e del Drive 
nel quale è inserito sia il disco originale sia il disco di 
destinazione (funziona sia con due drive che con uno 
solo). Normalmento SLOT=6 DRIVE=1 e SLOT=6 
DRIVE=2. Poi si deve scrivere il nome del file da co¬ 
piare. E' possibile copiare un intero disco in soluzio¬ 
ne automatica rispondendo, alla richiesta del nome del 
file, con il segno = (uguale). Alla successiva doman¬ 
da DO YOU PROMPTING? se si risponde Y(YES) 
viene chiesto di verificare il nome di ciascun file pri¬ 
ma di operare su di esso, battendo Y se si vuole copia¬ 
re oppure N se non si vuole copiarlo. Se invece si ri¬ 
sponde N(NO), verranno selezionati tutti i file. Pos¬ 
siamo anche copiare solo alcuni file che abbiano alcu¬ 
ne lettere in comune: per esempio se si batte, come 
nome del file, FR=ED, il programma selezionerà tutti 
i file i cui nomi iniziano con "FR" e terminano con 
"ED". Se si batte =N= vengono selezionati tutti i fi¬ 
le i cui nomi contengono "N". Il tipo di selezione so¬ 
pra indicato è valido per le opzioni 1-4-5-6-8. 


AppleWriter per Ile 

Rispondiamo in questa rubrica alle lettere dei signo¬ 
ri Stefano Bianchi di Firenze, Giorgio Ferrani di Bre¬ 
scia e Luigi Lastella di Corato (Bari), che non sono 
riusciti a utilizzare il programma di conversione per 
Applewriter pubblicato nella rubrica Applihelp dei 
n.16 di Applicando , perché in possesso della versione 
italiana del programma. La modifica da noi proposta 
è stata effettuata sulla versione in lingua inglese che 
differisce da quella in lingua italiana non tanto per il 
nome diverso di uno dei due file da modificare (OBJ. A- 
PWRTIF invece di OBJ.APWRT][F) ma perché il fi¬ 
le OBJ.BOOT è più corto mentre OBJ.APWRT][F è 
più lungo dello stesso file inserito nella versione in 


Listato per conversione Applewriter 


80 REM CONVERTITORE APPLEWRITER // 

90 REM PER COMPATIBILITA* //c 

100 HIMEM: 6400:D$ = CHR$ (4): TEXT : HOME : VTA 
B 9 

110 PRINT "Inserire il disco con 1'APPLEWRITER" 
120 PRINT : PRINT "e premere [RETURN]. "; : GET A3 
: PRINT 

130 PRINT D$"BLOAD OBJ.BOOT" 

140 POKE 7380,194: POKE 7381,30 

150 FOR X = 7874 TO 7904: READ L: POKE X,L: NEXT 
160 DATA 32,231,29,173,0,192,201,180,208,5,141, 
16,192,240,10,173,192,251,208,10 
170 DATA 44,96,192,16,5,169,0,141,59,29,96 
180 PRINT D$"UNLOCK OBJ.BOOT" 

190 PRINT D$"BSAVE OBJ.BOOT,A31C00,L32E1" 

200 PRINT D$"LOCK OBJ.BOOT" 

210 PRINT D$"BLOAD OBJ.APWRTI2F" 

220 POKE 7129,76: POKE 7130,88: POKE 7131,80 
230 POKE 7266,97: POKE 7267,80 
240 POKE 12497,99: POKE 12498,80 

250 FOR X = 17989 TO 18031: READ L: POKE X,L: NEX 
T 

260 DATA 193,240,240,236,229,160,175,175,227,160 
, 24 6, 229, 24 2,243, 233, 23 9, 238, 160,0, 201 
270 DATA 96,176,2,41,63,145,40,96,164,36,72,10,1 
0,48,4,104,41,191,72,104 
280 DATA 76,222,37 
290 PRINT D$"UNLOCK OBJ.APWRTI2F" 

300 PRINT D$"BSAVE OBJ.APWRTI2F,A31900,L33A5A" 

310 PRINT D3"LOCK OBJ.APWRTI2F" 

320 VTAB 20: PRINT "Conversione terminata" 


inglese. Confrontati pazientemente entrambi i listati 
(versione italiana e versione inglese) abbiamo riscrit¬ 
to la routine di modifica adattandola alla versione ita¬ 
liana. Quindi anche questa versione, oltre che elimina¬ 
re i caratteri del mouse visibili quando il cursore pas¬ 
sa sui caratteri maiuscoli, rende possibile usarlo in 40 
colonne anche se nel computer è installata la scheda 
80 colonne (vedi Ile). Nel riquadro qui accanto potete 
trovare l'apposito listato. 

Utili subroutine 

Riprendiamo l'elenco di alcune utili subroutine del 
Monitor e delle ROM dell’Apple, iniziato nel numero 
scorso. I caratteri che seguono il simbolo $ sono gli 
indirizzi esadecimali; poi viene la sigla del nome del¬ 
la routine che è seguita dalla funzione svolta. 

• $F941 - PRNTAX Stampa A e X in esadecima- 
le. Questa subroutine esegue l'output del contenuto 
dei registri A e X come valori esadecimali a 4 cifre. 
L'accumulatore contiene l’output del primo byte, e il 
registro X contiene il secondo. I contenuti dell’accu¬ 
mulatore sono solitamente mescolati. 

• $F948 - PRBLNK Stampa tre spazi. Emette tre 
spazi vuoti verso il dispositivo standard di output. Al¬ 
l’uscita, l’accumulatore solitamente contiene $A0, il 
registro X contiene 0. Se X = 00, PRBL2 ($F94A) e- 
mette 256 spazi vuoti. 

• $FF3A - BELL Output di un carattere "BELL". 
Questa subroutine invia un carattere bell (CTRL G) 
al dispositivo corrente di output. L'accumulatore con¬ 
tiene $87. 

•$FBDD-BELLl"Beep"dellaltoparlantedeir Ap¬ 
ple. Questa subroutine fa emettere un "beep" all’alto¬ 
parlante dell'Apple per 0,1 secondo alla frequenza di 1 
KHz e mescola i registri A e X. 

• $FDC0 - RDKEY Ottiene un carattere di output. 
Questa è la subroutine standard di input del carattere, 
che dispone un cursore lampeggiante sul video alla po¬ 
sizione del cursore di output e salta alla corrente su¬ 
broutine di input il cui indirizzo è caricato in KSW 
(locazione $38 e $ 39), solitamente KEYIN, 

• $FD1B - KEYIN Legge la tastiera dell’Apple. 
Questa è la subroutine di input della tastiera; attende 
che venga premuto un tasto e casualizza la base per la 
generazione dei numeri casuali. Quando viene premu¬ 
to un tasto, la routine rimuove il cursore lampeggian¬ 
te e carica nell'accumulatore il codice del tasto. 

• $FD6A - GETLN Ottiene un riga di input con il 
carattere "pronto". Questa subroutine raccoglie le ri¬ 
ghe di input. I programmi possono richiamare GE¬ 
TLN con il carattere di richiesta appropriato nella lo¬ 
cazione $33. GETLN mette la riga di input nel buffer 
di input (locazione di inizio $200) e carica nel regi¬ 
stro X la lunghezza della riga di input. 

• $DF6F - GETLN1 Ottiene una riga di input, sen¬ 
za "pronto". Questa subroutine è un punto di ingresso 
alternativo per GETLN, che non emette il carattere di 
pronto prima di raccogliere la riga di input. Se l'uten¬ 
te cancella una riga di input, sia con successivi ritorni 
di spazi sia con un CTRL-X, GETLN 1 mette sul vi¬ 
deo i contenuti della locazione $33 come "pronto" 
quando ottiene un'altra riga. 
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Disk Service 


Listati senza fatica 


Tutti i programmi di Applicando possono essere trascritti e quindi salvati 
su dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. 
Ecco perché Applicando offre, già pronti, i dischetti con i programmi 
sotto indicati: per ottenerli, è sufficiente inviarci il tagliando (pubblicato 
nell'ultima pagina) debitamente compilato. Chi vuole risparmiare non 
perda la favolosa offerta dell'abbonamento al Disk Service e invii 
subito il tagliando di pagina 129. 


APPLICANDO 1 

AP1/102 Profitti. In tempo reale l'analisi 
del break-even point, punto di pareg¬ 
gio di una qualsiasi azienda. Calendario 
perpetuo. Dal 1582 in poi tutto quello 
che si può sapere sui giorni passati e fu¬ 
turi. Itronchideltesoro.Unaspericolata 
caccia al tesoro a nuoto, tra le insidie di 
tronchi galleggianti. Lire 30.000. 

AP1/03 Eliminatore di Dos. Uno stru¬ 
mento per aumentare del 10% la capa¬ 
cità di un normale floppy disk. Orolo¬ 
gio. Per trasformare l'Apple II in un oro¬ 
logio con rintocchi, allarme e lancetta 
dei secondi. Pronti puntare fuoco! 
Guardiano di un castello ababndonato, 
hai 25 colpi da sparare contro gli intrusi. 
Lire 30.000. 

APPLICANDO 2 

AP2/IN04 Costi chilometrici auto. Un 

programma per calcolare e confrontare 
i costi di qualunque auto. Richiamafigu- 
re. Posizionare, ingrandire, ruotare, 
cambiare colore, aggiungere figure a 
quelledi una tavola. Laser nello spazio. 
Battaglia a colpi di laser contro asteroidi 
e alieni per difendere la torretta spazia¬ 
le. Lire 30.000. 

APPLICANDO 3 

AP3/IN05 Sistema base. Un data base 
modulare con tutte le caratteristiche es¬ 
senziali per mettere ordine nei propri ar¬ 
chivi. Etichette. Etichette spiritose e 
bizzarre, di lavoro o di ogni genere, 
stampate facilmente e nel numero desi¬ 
derato. Contratti. Con il WPL, il linguag¬ 
gio di programmazione dell'Apple Wri- 
ter, bastano cinque minuti per un docu¬ 
mento di più pagine personalizzato. 
Gran catalogo. Una routine per avere il 
catalogo del dischetto su due colonne, 
42 file per volta, e richiamarli con un so¬ 
lo tasto. Lire 30.000. 

AP3/A06 Equo canone (occorre Visical- 


c). In Visicalc un modello che permette, 
a inquilini e proprietari, l'esatto calcolo 
dell'equo canone. Lire 25.000. 

APPLICANDO 4 

AP4/N07 Lettura sprint (versione italia¬ 
na e versione con frasi in inglese). Un 
readina improver per leggere di più a 
parità di tempo. Rompiquindici. Il picco¬ 
lo rompicapo delle quindici pedine da 
ordinare nei sedici spazi a disposizio¬ 
ne. Tastierino fantasma. Una routine 
per avere a disposizione un tastierino 
numerico anche sull'Apple II. Routine 
di input. Due subroutine, una per i dati 
numerici, l'altra per gli alfanumerici, per 
il controllo dell'input. Lire 30.000. 

AP4/A09 Organo, violino, pianoforte 

(dischetto Pascal, occorre language 
card o Apple Ile o Ile). Ecco come, col 
Pascal, si riesce asimulare i tre strumen¬ 
ti attivando l'altoparlante dell'Apple da 
programma. Lire 30.000 

APPLICANDO 5 

AP5/N08 Investor. In tempo reale il qua¬ 
dro esatto di come vanno i propri inve¬ 
stimenti finanziari. Con cinque prospet¬ 
ti riepilogativi e 52 periodi di quotazio¬ 
ne, Investor è uno dei programmi più 
completi in questo settore e in assolu¬ 
to il più economico. Lire 70.000. 

AP5/N09 Agenda personale. Per ricor¬ 
dare ora per ora gli appuntamenti di un 
anno intero memorizzando fino a 15 ap¬ 
punti ogni giorno. Duello d'artiglieria. 
Vince cni sa calcolare meglio la velocità 
del vento, la gittate e l'elevazione della 
canna. Mele e freccette. Versione com¬ 
puterizzata del popolare gioco delle 
freccette che nulla toglie al gusto del 
far centro. Lire 30.000. 

APPLICANDO 6 

AP6/N10Obbligazioni/BondManager. 

Per avere un quadro completo e con¬ 


creto dei rendimenti dei titoli a reddito 
fisso. PucMan/Nibbler. Versione in alta 
risoluzione per Apple del famoso video¬ 
game a gettone. Line finder. Letteral¬ 
mente trova righe; questa utility permet¬ 
te di localizzare facilmente i segmenti di 
un programma. Lire 30.000. 

AP6/N11 Stress. In Pascal (occorre lan¬ 
guage card o Apple Ile o Ile). Per gioca¬ 
re, ma soprattutto per inventare giochi, 
il programmasi pone in alternativaagli u- 
suali videogame. Lire 55.000. 

APPLICANDO? 

AP7/N12 Apple pittore. Si possono rea¬ 
lizzare sullo schermo capolavori di pittu¬ 
ra, ottenendo effetti speciali di grande 
efficacia. Ottovolante. Un tutoria! per in¬ 
segnare ai bambini a riconoscere i nu¬ 
meri che rimbalzano sullo schermo. Di- 
skblock. Una routine che permette di e- 
vitare che qualche curioso possa avere 
libero accesso in programmi riservati. Ar¬ 
chivio per Apple. Per avere un ba- 
ck-up dei programmi più importanti da 
dischetto a cassetta o viceversa. Disco¬ 
teca. Una banca dati che tiene sotto 
controllo la collezione di l.p. e cassette. 
Aiuto. Alla fine della battitura di un pro¬ 
gramma, Aiuto vi dirà quanti errori ci so¬ 
no e a quali linee. Lire 30.000. 

APPLICANDO 8 

AP8/N13 Cambiacomandi/Messaggi. 

Un programma che insegna come per¬ 
sonalizzare i messaggi propri del Dos 
dell'Apple. Le Mans. Un gran premio di 
formula uno da giocare in due o da soli 
contro il computer. Appleorgano. Una 
combinazione di linguaggio 
macchina e Applesoft che trasforma 
l'Apple in un melodioso organo. Lire 
30.000. 

AP8/T14 Momento di una forza/Colpo 
all'asta. La dimostrazione didattica dei ri¬ 
baltamento di un corpo solido appog- 
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giato a un piano quando viene applica¬ 
ta una forza orizzontale che supera il 
momento in senso opposto dovuto al 
peso. Hard copy pagine in alta risoluzio¬ 
ne. Se la stampante risponde a determi¬ 
nati criteri di compatibilità, con questo 
programma si possono far miracoli. Lire 
30.000. 

APPLICANDO 9 

AP9/N15 Fuoco fatuo. Un appassio¬ 
nante adventure game con un percor¬ 
so intricatissimo, mille trabocchetti, un 
troll e una principessa. Apple artista. 
Per destreggiarsi nella grafica ad alta ri¬ 
soluzione usando lo schermo come ta¬ 
volozza e la tastiera come pennello. Da¬ 
ta hello. Una semplice routine che per¬ 
mette di disporre di una clock card ini- 
zializzando i dischetti con giorno, mese 
e anno. Lire 25.000. 

AP9/T16Sistemadiforzeparallele. Fis¬ 
sandone l'intensità e la posizione, que¬ 
sto programma permette di visualizzare 
il centro di un sistema di forze sotto for¬ 
ma numericae grafica. Traslazione e ro¬ 
tazione di una figura piana. Come far 
ruotare, traslare, rimpicciolire, ingrandi¬ 
re sul video una figura piana. Lire 
30.000. 

APPLICANDO 10 

API 0/N 14 Ripristino. Come ripristinare 
programmi persi per un'accidentale i- 
struzione di New o di Fp. Disk Map. Un 
detective del Dos per scoprire dove e 
come vengono immagazzinati i dati ana¬ 
lizzando la mappa dei bit occupati. Au- 
tonumber. Una routine per autonume- 
rare automaticamente i programmi e alli¬ 
neare le righe con un ritorno carrello in 
input. Lire 30.000. 

AP10/T17 Rette nel piano cartesiano. 

Come individuare in cinque modi diver¬ 
si una coppia di rette in un piano carte¬ 
siano e avere visualizzate le equazioni 
relativeai piani assegnati. Statistica. Co¬ 
me analizzare la correlazione tra due fe¬ 
nomeni o due caratteri e l'indice o coef¬ 
ficiente di Bravais che ne effettua la mi¬ 
sura. Lire 30.000. 

APPLICANDO 11 

AP11/N18 Apple edicola. Una banca 
dati per avere sotto controllo un artico¬ 
lo, il suo numero di pagina, la rivista su 
cui è stato pubblicato. Disk Zap. Il pro¬ 
gramma indispensabile per il debuggin- 
g di un dischetto che ne risolve la mag¬ 
gior parte dei problemi. Messaggi per¬ 
sonali. Quando la persona non c'è, per 
lasciare un messaggio basta impostarlo 
sulla tastiera. L'Apple farà il resto. Com- 
paratorediprogrammiinBasic.Unarou- 
tine per risolvere dubbi sulle diverse 
versioni di uno stesso programma. Trap¬ 
pola per po¬ 

chi. Un cacciatore contro tre animali fe¬ 
roci. Vince chi riesce a intrappolare sen¬ 
za essere intrappolato. Lire 30.000. 

AP11 /TI 9 Espressioni. Come risolvere 
un piccolo dramma familiare con l'aiuto 


di un elaboratore personale. Lire 
25.000. 

APPLICANDO 12-13 

API 2/N20 Bridge. Un programma in al¬ 
tissima risoluzione grafica che permet¬ 
te di imparare il bridge o di giocarlo con¬ 
tro il computer. Microcalc. Un foglio elet¬ 
tronico di calcolo che mette a disposi¬ 
zione 20 righe per 20 colonne, per un 
totale di 400 caselle da riempire come 
si vuole. Applesoft Line Editor. Unapo- 
tente utility che permette l'editing dei 
programmi in Applesoft e aggiunge al¬ 
l'Apple un più ampio controllo del cur¬ 
sore. Lire 30.000. 

AP12/A21 Budget (occorre Applewor- 
ks). Un prospetto che con l'inserimen¬ 
to di dati mensili e di medie preventive 
calcola automaticamente le medie con¬ 
sultive e i relativi saldi mensili e annui. 
Lire 20.000. 

AP12/A22 Budget (occorre Visicalc). 
Un prospetto che con l'inserimento di 
dati mensili e di medie preventive calco¬ 
la automaticamente le medie consulti¬ 
ve e i relativi saldi mensili e annui. Lire 
20 . 000 . 

2/T25Animazionediunarotazionetridi- 
mensionale. Un esempio di come una 
rotazione tridimensionale permette di 
rappresentare ali oggetti proprio come 
livediamo.TrasformazionedaFilea Da¬ 
ta. Una utility per risolvere il problema di 
aggiungere a un programma preesi¬ 
stente delle istruzioni DATA ricavate da 
un altro file. Lire 25.000. 

APPLICANDO 14 

14/N26GoIf. Un programma in altissima 
risoluzione grafica che permette di dise¬ 
gnare il proprio percorso di golf per poi 
giocarci a piacimento con gli amici. Au¬ 
topiù. Con l'aiuto di questo programma 
non dimenticherete più gli appunta¬ 
menti fissi dedicati alla manutenzione 
della vostra automobile. Lire 20.000. 

API 4/N27 Applebaby. Tre giochi didat¬ 
tici: il primo per imparare a contare in e- 
tà prescolastica, il secondo per ripassa¬ 
re le tabelline, il terzo peresercitarsi nel¬ 
l'ortografia. Lire 25.000. 

AP14/A28 Rimborso spese (occorre 
Appleworks). Un prospetto che vi per¬ 
mette di preparare le vostre note spe¬ 
se automaticamente in cinque minuti. 
Lire 20.000. 

API 4/A29 Rimborso spese (occorre Vi¬ 
sicalc). Un prospetto che vi permette di 
preparare le vostre note spese automa¬ 
ticamente in cinque minuti. Lire 
20 . 000 . 

AP14/T30 Frutteti. Un aiuto a risolve¬ 
re uno dei più classici problemi di esti¬ 
mo. Instant Poster. Voi scrivete con la 
tastiera del vostro Apple la frase che vo¬ 
lete, e subito dalla stampante esce un 
poster formato gigante. Lire 20.000. 


APPLICANDO 15 

AP15/N31 Sintetizzatore di suoni. Con 

questo programma potete dotare i vo¬ 
stri lavori di una colonna sonora ecce¬ 
zionale; permette infatti la sintetizzazio- 
ne dei suoni più diversi: dal canto del¬ 
l'uccellino alla mitragliatrice, dal treno in 
corsaall'aereo, etantissimi altri, compre¬ 
sa la musica. Volano. Un gioco in alta ri¬ 
soluzione per due sfidanti. Illustratore. 

Un programma di grafica che offre la 
possibilità di realizzare ottimi disegni an¬ 
che a chi non è molto ferrato in materia. 
Autoschermo. Crea in automatico vi- 
deate di presentazione dei programmi 
inseriti in un dischetto; dall'aspetto mol¬ 
to professionale, evidenzia infatti i pro¬ 
grammi con una barra luminosa coman¬ 
dabile con le frecce e fa partire il pro¬ 
gramma così evidenziato con un sem¬ 
plice Return. Lire 30.000. 

AP15/A32 Computer cuisine. Un ricet¬ 
tario computerizzato sul quale memoriz¬ 
zare ingredienti e ricette a centinaia, eli¬ 
minando così sia il fastidio di mille pez¬ 
zetti di carta sparsi per i cassetti, sia il 
pericolo di smarrire preziose ricette. 
Con possibilità di stampa delle singole 
ricette e con un menù completo dei mi¬ 
gliori piatti creati da Gualtiero Marchesi, 
il più famoso cuoco d'Italia. Occorre 
scheda 80 colonne. Lire 20.000. 

AP15/T33 Euclide. Il massimo comune 
divisore e il minimo comune multiplo in 
un programma che ne permette l'imme¬ 
diata comprensione. Isomeri. Fa parte 
del più ampio progetto americano Sera- 
phim, per lo studio della chimica. Lire 
20 . 000 . 

APPLICANDO 16 

AP16/N34 Dieta personalizzata. Con 

questo programma, un pratico sistema 
di data base nutrizionale, è possibile 
personalizzare, a seconda della propria 
costituzione fisica e delle abitudini ali¬ 
mentari, una dieta bilanciata, a lungo o 
a breve termine. Il dischetto contiene J 
un file dati di 400 cibi, la cui composizio¬ 
ne è analizzata in calorie, proteine, gras¬ 
si, vitamine e colesterolo. Lire 30.000. 

AP16/N35 Designer. Il concetto dei po¬ 
tenti e costosi programmi di CAD/CAM 
alla portata dell'Apple II, per fare del 
computer uno strumento per disegna¬ 
re semiprofessionale. Il gioco dei pom¬ 
pieri. E' scoppiato un incendio, e voi 
siete un pompiere che deve salvare il 
maggior numero di persone prima che 
muoiano soffocate tra le fiamme. Se 
sbagliate tre volte, sarete nei guai: il se¬ 
vero comandante... Per listare bene in 
vista. Programmare è divertente, creati¬ 
vo, affascinante. Ma talvolta bisogna tor¬ 
nare sul listato per correggere e modifi¬ 
care qualcosa. 

Allora può capitare di pentirsi di aver 
preferito la compattezza alla chiarezza. 

A meno che non si faccia uso di questo 
programma. Timer. Un efficace program¬ 
ma per trasformare l'Apple II in un fede¬ 
le e preciso contasecondi che avverte 
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del passare del tempo, e al momento 
giusto... Lire 30.000. 

AP16/N36 Cento One-liner. Utilities, 
routines, dimostrativi di grafica e di suo¬ 
ni, e perfino giochi. Cento programmi 
su un solo dischetto, tutti rigorosamen¬ 
te scritti in una sola linea di Basic. Da u- 
sare così come sono, da studiare come 
esempi di sintesi, o da trasferire nei vo¬ 
stri programmi. Lire 30.000. 

AP16/N37 Rubrica telefonica (occorre 
Appleworks). Un'agenda telefonica 
che individua in tempo reale qualun¬ 
que numero memorizzato, che stampa 
le etichette per spedire gli auguri di Na¬ 
tale e di Pasqua solo a chi volete voi, 
che seleziona, con molteplici possibili¬ 
tà, gruppi di nominativi e stampa elen¬ 
chi su carta da distribuire aggiornati o- 
gni mese ai collaboratori. Lire 15.000. 

APPLICANDO 17 

AP17/N38 Strade d'America. Pianifica 
un qualunque itinerario stradale ameri¬ 
cano tra ben 171 città diverse, fornen¬ 
do le sigle delle strade da percorrere, 
l'elenco delle città intermedie e i calcoli 
della distanza in miglia dei tratti interme¬ 
di, oltre alla distanza totale dalla città di 
partenza a quella d’arrivo. Uragano. Su 
una piccola città indifesa una tempesta 
si abbatte implacabile: distruggerà tutte 
le case e ucciderà ogni abitante, in un 
crescendo di violenza incontrastabile. 
Un rifugio ci sarebbe, ma come raggiun¬ 
gerlo? Non c'è proprio speranza. A me¬ 
no che... Gioco ad altissima risoluzione 
grafica. Lire 30.000. 

AP17/N39 Reqress. Ideale per manipo¬ 
lare dati con funzioni statistiche, que¬ 
sto programma è destinato soprattutto 
a chi ha bisogno di uno strumento velo¬ 
ce per eseguire analisi di carattere stati¬ 
stico, con la conseguente possibilità di 
chiedere previsioni in base all'anda¬ 
mento della regressione sui dati inseri¬ 
ti. Calcolatrice RPN. Con questo pro¬ 
gramma l'Apple diventa una sofisticata 
calcolatrice che impiega per l'input la 
notazione polacca inversa, con una ca¬ 
tasta operativa di quattro registri, e per¬ 
mette calcoli complessi. Sparate a vi¬ 
sta. Siete appostati contro un muro e 
comandate un potente cannone atomi¬ 
co... ad aria. Dal cielo fluttuano oggetti 
non meglio identificati: alcuni lentamen¬ 
te, altri un po' meno. Voi, questi ogget¬ 
ti, dovete respingerli. Peccato, però, 
che dall'altra parte ci sia un avversario 
con un altro cannone. Lire 30.000. 

AP17/A40 I conti del negozio (occorre 
Appleworks). Diviso in due file, simili 
per impostazione ma diversi per utiliz¬ 
zo, questo modello di spreadsheet è u- 
tilissimo per seguire l'andamento gior¬ 
naliero e mensile di un negozio. All'a¬ 
pertura del negozio coincide l'apertura 
di un foglio vuoto del modello: per ogni 


movimento di cassa è possibile memo¬ 
rizzare la causale e il tipo di pagamento. 
Il computer calcola i totali per ogni voce 
e indica qual è stato il movimento di cas¬ 
sa della giornata, tenendo conto degli 
ordini e dei saldi per impegni preceden¬ 
ti. Un'ultima sezione elabora i dati suddi¬ 
visi per categoria merceologiche e cal¬ 
cola le percentuali di ripartizione degli u- 
tili su ogni articolo. Lire 50.000. 

API 7/A411 conti del negozio (occorre 
Visicalc). Come AP17/A40, ma con Visi- 
cale. Lire 50.000. 

APPLICANDO 18 

API 8/N41 Trivia. Stregherà milioni di ita¬ 
liani facendoli giocare, la novità che vie¬ 
ne daH'America: si chiamaTrivial Pursuit 
ed è destinato a diventare il gioco del¬ 
l'anno. Per sperimentarlo in anteprima, 
Applicando ne propone una versione 
per Apple II, perdi più personalizzabile 
e quindi utile anche per studiare o ripas¬ 
sare, oltre che per divertirsi... Bioritmi. 
Ci sono giornate in cui conviene non u- 
scire nemmeno di casa, perché va tut¬ 
to storto; e ci sono giorni baciati dal de¬ 
stino in cui si naviga sull'olio. Sarebbe 
bello conoscerli in anticipo e organizzar¬ 
si meglio la vita. Con questo program¬ 
ma si può seguire l'andamento dei pro¬ 
pri bioritmi: tutti e tre i cicli, mese per 
mese. Occhio ai consumi. Volete sape¬ 
re quanto consuma la vostra auto? Po¬ 
tete annotare diligentemente la percor¬ 
renza e i litri di carburante e poi fare i re¬ 
lativi calcoli. Oppure, molto più sempli¬ 
cemente, caricare su Apple questo pro¬ 
gramma, utile per valutare anche altri ti¬ 
pi di consumi... Lire 30.000. 

API 8/N42 Regolatore del bip. Ci sono 
momenti in cui il Ile, con tutti quei suoi 
bip, sembra ridere dei nostri errori. Che 
fare? Spegnerlo e uscire a fare due pas¬ 
si? Cambiarlo con il Ile, che ha il volume 
regolabile? Mettersi i tappi nelle orec¬ 
chie? No, la soluzione è un'altra, sempli¬ 
ce e davvero simpatica... e soprattutto 
funzionaìComparatoredi grafici. Avere 
il grafico di una funzione può essere i- 
nutile se poi non si possono esaminare 
i particolari del suo andamento in una 
certa zona. Se poi si deve vedere la dif¬ 
ferenza tra due curve diverse c'è da fa¬ 
re un difficile e poco preciso lavoro di 
comparazione. A meno di non utilizza¬ 
re questo programma che... Impagina¬ 
tore di messaggi. Per avere le scritte 
perfettamente centrate sia sul video 
che sulla stampante occorre tanta pa¬ 
zienza e tanto occhio. 
Oppure avere in memoria questo impa¬ 
ginatore che, all'occorrenza, può servi¬ 
re anche da word processor. Utility per 
ProDOS. Prefix, Subdirectory, Pattina¬ 
rne? Sono termini che bisogna cono¬ 
scere per programmare in ProDOS. 
Questa utility aiuterà a capire e impara¬ 
re con facilità. Lire 30.000. 


APPLICANDO 19 

AP19/N43 Oracolo. Comperare una ca¬ 
sa? Cambiare lavoro? Concludere o no 
quell'affare? Alcune scelte sono così 
importanti, legate a condizioni così 
complesse, che, per decidere tra le al¬ 
ternative possibili, l'umana saggezza a 
volte non basta. Ci vogliono freddezza 
e distacco, per suddividere il problema 
nelle sue componenti allo scopo di ana¬ 
lizzarle separatamente. Il primo pro¬ 
gramma di tipo decision maker disponi¬ 
bile in Italia. Digger. A differenza dei aio- 
chi di labirinto di tipo tradizionale, Dig¬ 
ger vi chiede di risolvere dei rompicapo 
spaziali, e la prontezza di riflessi non è 
tra i fattori del gioco... I marziani, inoltre, 
non sono vostri nemici, anzi, i marziani 
siete voi... Claustrofobia. Non distrug¬ 
gete gli alieni, limitatevi a controllare 
che stiano tranquilli ! Questo gioco in al¬ 
ta risoluzione, pacifista nei risultati, ma 
non nei metodi, mette alla prova l'abili¬ 
tà del giocatore, che deve schivare le 
bombe mentre spara contro gli alieni, 
per incolonnarli con ordine. Ma atten¬ 
zione che non vi incastrino, perché sof¬ 
frite di claustrofobia... Gestione punta¬ 
tori. Volete caricare in memoria un pro¬ 
gamma in Applesoft al di sopra di que¬ 
sto o quel codice in linguaggio macchi¬ 
na? Magari aggirando la memoria di 
schermo in alta risoluzione? O addirittu¬ 
ra in cima a un codice ormai servito al 
suo scopo in un programma che sta gi¬ 
rando? O annullare un FP battuto per 
errore? Con questo programma, tutto è 
possibile. Graficaindoppiarisoluzio ne. 
Tre routine in Basic e una in Assembler 
che vi pemetteranno di creare proram- 
mi in doppia alta risoluzione con 16 co¬ 
lori. Sei soluzioni. Il programma, propo¬ 
sto nell'ambito del Progetto Seraphim, 
è un test che consiste nel presentare 
allo studente quantità limitate di un cer¬ 
to numero di soluzioni in provette nu¬ 
merate. Lo studente conosce le so¬ 
stanze presenti e deve, usando esclu¬ 
sivamente le soluzioni a disposizione, i- 
dentificare il contenuto di ciascuna pro¬ 
vetta. Lire 30.000. 

APPLICANDO 20 

AP20/N44 Salute. Purtroppo il medico 
di famiglia non esiste più (ma se ce n'è 
ancora qualcuno, si affretti a usare que¬ 
sto programma!): vaccinazioni da un la¬ 
to, malattie dall'altro, analisi, terapie e 
soprattutto costi a non finire. Come ri¬ 
cordare tutto, registrare e listare le spe¬ 
se mediche di tutti i familiari? E al mo¬ 
mento di pagare le tasse, poi... Varia¬ 
bili. Volete caricare in memoria un pro¬ 
gramma in Applesoft al di sopra di que¬ 
sto o quel codice macchina? O addirittu¬ 
ra in cima a un codice ormai servito al 
suo scopo in un programma che sta gi¬ 
rando? Grafica. Che cosa sono le figure 
a blocco? Perché è importante farne la 
conoscenza? Per chi possiede l'Apple 
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Ile o il Ile con scheda 80 colonne conti¬ 
nua l’entusiasmante viaggio nel mondo 
dell'altissima risoluzione. Impariamo in 
questo numero a duplicare sul video la 
piccola immagine di un'astronave alie- 
na.SimuIazionedi un equilibrio. Unso- 
ftware didattico del progetto Seraphim 
che crea la simulazione al computer di 
un problema di equilibrio. Lire 30.000. 

AP20/N45 Oroscopo. Dedicato soprat¬ 
tutto a chi agli oroscopi non crede, for¬ 
se questo programma può riuscire a 
fargli cambiare idea... Scientificamente 
fondato, permette la creazione di una 
carta del cielo natale che nulla invidia ai 
grafici tracciati dai professionisti. E le ta¬ 
belle con latitudini, longitudini, fusi ora¬ 
ri eccetera? Ci sono, ci sono... Voce. O- 
ra non gli manca più la parola: con que¬ 
sta routine in linguaggio macchina l'Ap¬ 
ple può finalmente pronunciare tutto 
quello che volete. Cos'ha di diverso da¬ 
gli altri programmi del genere? L'estre¬ 
ma semplicità, la totale trasparenza... 
L.30.000. 

APPLICANDO 21 


Nuova opportunità 
\ per i nostri / 
\ lettori 


Abbonamento 
DISK SERVICE 

Applicando è lieto di offrire ai propri lettori la 
possibilità di sottoscrivere un abbonamento 
a 5 o 10 dischetti, a scelta fra quelli presentati nel 
Disk Service, a un prezzo super vantaggioso: 

120.000 lire per 5 dischetti 
200.000 lire per 10 dischetti 


AP21/N46 Architetto. Arredare bene la 
propria casa e il proprio ufficio è impor¬ 
tantissimo... senza fare troppa fatica, 
però, e senza spenderci troppo dena¬ 
ro. Un programma per studiare sul vi¬ 
deo la disposizione di mobili, porte, fi¬ 
nestre e muri, spostandoli a piacere, 
modificandone le dimensioni, duplican¬ 
doli, facendoli ruotare.. E poi, natural¬ 
mente, tampando il tutto. Autocorsa. A 
tutta birra lungo una pista diroccata, 
con vere e proprie voragini e massi da 
schivare. A ogni videata cambia la diffi¬ 
coltà del percorso, e la sosta ai box ri¬ 
serva qualche interessante sorpresa. 
By-pass per il dum p. Unascorciatoia, fi¬ 
nalmente, per accedere alla routine di 
stampa, e solo a quella, senza bisogno 
di attraversare prima tutto il programma: 
basta by-passarlo! Cursore. Perlo spo¬ 
stamento del cursore Apple usa gli in¬ 
gombranti comandi HTAB e VTAB; è in¬ 
vece possibile utilizzare speciali caratte¬ 
ri di controllo nelle stringhe stampate, 
grazie a questo programma in codice 
macchina. Grafica. Un altro passo avanti 
verso la perfetta padronanza della grafi¬ 
ca in altissima risoluzione: come anima¬ 
re sullo schermo le figure a blocchi e co¬ 
me dare l'impressione che scorrano die¬ 
tro un altro oggetto. Curve di titolazio¬ 
ne. Interessa gli studenti (e gli inse¬ 
gnanti) di chimica questo programma 
del Progetto Seraphim: inserite le debi¬ 
te variabili, e assegnato il nome all’aci¬ 
do che si sta studiando, traccia sul pia¬ 
no cartesiano la relativa curva di titola¬ 
zione. Permette allenamenti succosi e 
intensivi senza troppe perdite di tem¬ 
po. Lire 30.000. 

APPLICANDO 22 

AP22/N47 Impegni. Che le polizze sca¬ 
dono si sa; il problema è ricordarsi quan¬ 
do. E lo stesso vale per anniversari e 
compleanni. Peravere sempre sotto gli 
occhi un promemoria elettronico, ecco 
un calendario da scrivania intelligente. 


Pagherete, rispettivamente, 24.000 o 20.000 lire a 
dischetto, Iva e spese di spedizione comprese 

qualunque sia il prezzo di vendita 
del singolo dischetto. 

Basta che compiliate il tagliando qui sotto e lo 
inviate ad Applicando, abbonamenti Disk Service, 
Corso Monforte 39, 20122 Milano, unitamente a un 
assegno non trasferibile intestato a Editronicasrl 
e al vostro primo ordine. 

Per ordinare i dischetti, adesso e 
successivamente, utilizzate il buono d'ordine 
pubblicato alle pagine seguenti, specificando 
sempre che siete un abbonato del Disk Service. 
L'abbonamento non ha una scadenza, e quindi 
i 5 o 10 dischetti potete ordinarli nell'arco di tempo 
che più vi aggrada. 


r 


Sì, desidero sottoscrivere il seguente 
abbonamento al Disk Service: 

□ 5 dischetti, per un importo di 120.000 lire 

EH 10 dischetti, per un importo di 200.000 lire 



Nome 


Cognome 
Indirizzo _ 


Cap_Città 


RL 


Data 


£irma 




























Disk Service 


Azzardo. Il computer diventa mazziere 
di Blackjack, in una simulazione che ri¬ 
calca fedelmente il funzionamento del¬ 
le slot machine di Las Vegas. Sono 
previsti infatti anche gli special... Effetti 
speciali. L'importanza di una gradevole 
presentazione non va sottovalutata, 
quando si realizza un programma. 
Spinner consente lo scorrimento 
orizzontale di una stringa, alla velocità 
voluta, per vivacizzare un menù, un ti¬ 
tolo, oppure... Calendario. Non si pos¬ 
sono tenere in ufficio decine di calen¬ 
dari, né si possono sempre fare com¬ 
plessi calcoli sugli anni a venire; spes¬ 
so però c'è bisogno di sapere come si 
corrispondono date e giorni della setti¬ 
mana, anche in anni lontani... Ecco un 
calendario perpetuo, perfetto, veloce 
e sempre pronto. Grafica. Creare intere 
immagini e figure a blocco sullo scher¬ 
mo Hi-Res, e poi animarle. Un'ultima 
nota tecnica sul funzionamento della 
doppia alta risoluzione prima di passa¬ 
re a divertenti routine applicative. Chi¬ 
mica. Il famoso numero di Avoaadro e il 
concetto quantitativo di mole: la visua¬ 
lizzazione aiuta a spiegarli e ad appren¬ 
derli meglio. Lire 30.000. 

APPLICANDO 23 

AP23/N48 Obelisk. Un game spaziale, 
alla caccia di obelischi da distruggere, 
con singoli colpi di fasore o con una 
megaesplosione. Alla caccia, però, an¬ 
che di una promozione sul campo: di¬ 
ventare “comandante di vagante” non 
è da tutti! Programmare l'Applemou- 
se. Come programmare sull'Apple in 
modo da utilizzare il mouse? In Apple¬ 
soft o in Assembler, ecco un aiuto pre¬ 
zioso per la programmazione e l'utiliz¬ 
zo dell'Applemouse. Più che diapositi¬ 
ve. Per realizzare delle presentazioni 
con il computer, che siano qualcosa di 
più di un continuo scorrere di diapositi¬ 
ve: l'effetto “solid state”! Grafica. Quin¬ 
to programma di Applicando dedicato 
alla doppia alta risoluzione: scorrimen¬ 
to orizzontale di scritte e figure. Lire 
30.000. 


AP23/A49 Trasferimento da Apple a 
Mac. Un programma eccezionale e 
nuovissimo: trasferire testi dall’Apple 
Ile e Ile al Macintosh è ora possibile e, 
quel che più conta, semplice e ultrasi¬ 
curo. La confezione comprende un 
dischetto da 3 pollici e mezzo e uno 
da 5 pollici e un quarto. Lire 50.000. 

AP23/N50 Grafici 3D. Per gli studenti 
di calcolo, architettura ed arte, un pro¬ 
gramma che consente la realizzazione 
ai grafici a tre dimensioni senza linee 
nascoste. Quale elemento? Un trivia di 
chimica, per ripassare giocando i nomi 
e le caratteristiche di tutti gli elementi 
della tavola chimica. Le domande le fa 
lo studente, e dalle risposte del com¬ 
puter deve ricavare la soluzione finale. 
Lire 20.000. 

APPLICANDO 24 

AP24/N51 Executive Card File. Uno 
schedario eccezionale per l'Apple II. E' 
strutturato in modo che le schede 
possano essere riposte in dieci racco¬ 
glitori: questo permette di introdurre 
un' infinità di dati con la massima 
velocità di reperimento. L'indice 
generale, inoltre, è molto flessibile: le 
schede possono essere archiviate in 
ordine alfabetico, per argomento o 
con chiavi. Apple Maestro. Tutti 
compositori, con questo programma 
che insegna a creare la musica in 
modo professionale, ma non per 
questo inaccessibile ai profani. Lire 
35.000. 

AP24/N52 Dump 80 colonne. Un 
programma per ottenere la stampa 
della pagina schermo a ottanta 
colonne: proprio quello che finora non 
avreste po tuto chiedere al vostro 
Apple. Data and time. Senza più dover 
ricorrere a costose schede aggiuntive, 
potete da oggi inserire nella mente del 
vostro computer un calendario e, 
soprattutto, un orologio. Basta usare 
questo semplice programma... Grafica. 
Con l'aggiunta delle routine per lo 


scorrimento verticale il mondo della 
grafica in doppia alta risoluzione non 
na più difficoltà, né segreti. Lire 
30.000. 

AP24/N53 Prospettiva 3 D. Questo pro¬ 
gramma è il seguito naturale di quello 
contenuto nel disco AP23/N50: come 
disegnare intere prospettive urbane, 
senza che il computer mostri i lati e le 
facce che devono rimanere nascosti. 
Test scolastici. Come crearsi un trivia 
"aperto", cioè non confinato a una so¬ 
la materia. Un modo nuovo e intel¬ 
ligente per ripassare (o giocare) inter¬ 
rogandosi. Lire 20.000. 


Utility Dos 3.3.- AP24/N55 

Come ricopiare i 
programmi di Applicando ? 
Ecco il sistema operativo 
Dos 3.3 e quattro utility 
per la gestione dei file. 


AP24/N55 Utility Dos 3.3. Questo di¬ 
schetto consente a tutti coloro che 
hanno acquistato un Apple II dopo il 
maggio1984diavereadisposizioneil 
sistema operativo Dos 3.3 indispen¬ 
sabile per poter ricopiare alcuni pro¬ 
grammi presen tati da Applicando. In¬ 
sieme al sistema operativo vengono 
fornite quattro utility per la gestione 
dei file Dos. Ildischettocontienetutte 
le informazioni necessarie. Lire 
25.000. 

PROGRAMMI PER MAC 

AP24/N54 MacGraph. Un programma 
favoloso per un uso professionale del 
Macintosh: può creare ogni tipo di gra¬ 
fico, a linee, a barre o a torta, che poi 
potete copiare e incollare in qua¬ 
lunque altro documento (relazioni, do¬ 
cumenti da proiettare...). Lire 40.000. 
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Sono abbonato al Disk Service: sì □ no □ 


Cognome.Nome. 

Via.CAP.. . 

Città.Prov. 

Scelgo la seguente formula di pagamento: 

Lj allego assegno di L. non trasferibile intestato a Editronica Srl. 

I I allego ricevuta di versamento di L.sul cc/p n. 19740208 

intestato a Editronica srl, C.so Monforte 39, 20122 Milano. 

| I pago fin d’ora l'importo di L . con la mia carta di credito 

Bankamericard N . scadenza . 

autorizzando la Banca d'America e d'Italia ad addebitarne l'importo sul mio conto. 
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□ Tre programmi integrati in un unico pacchetto 

□ Tre strumenti all’unisono 


□ Tre volte meno caro, a parità di potenza 

□ Tre indiscutibili motivi per acquistarlo 
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ARCHIVIO 

Schedario evoluto e veloce, per¬ 
sonalizzabile. Ricerche multichia- 
ve, sort, aggiornamenti numerici 
automatici, calcolatrice, stampe 
personalizzabili etc. 


GRAFICI 

Tre tipi di grafici: barre, linee, torta 
con personalizzazione di diciture, 
valori e scale 2 o 3 dimensioni. 
Stampe e comparazioni. 


TESTI 

Potentissimo editore di testi con 
righelli, taglia, copia, incolla, giusti¬ 
ficazioni e word-wrap. Passaggio 
dei testi all’archivio per un autenti¬ 
co mail-merge. 
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Completamente in italiano - by HL software - Horizontal Line Software 

distribuito da EMS - via Dalmazia,2 - 27029 Vigevano — Telefono (0381) 80666 





























I floppy disk Elephant Memory offrono il massimo grado di affi¬ 
dabilità perché sono costruiti secondo gli standard Elephant, 
che sono più severi di quelli richiesti dalle principali normative 
industriali. 

Nei floppy disk Elephant Memory ogni particolare - dall’anello 
di rinforzo alla busta permanente in materiale antigraffio con 
doppie saldature, dalla dotazione di etichette di identificazione 
alle speciali etichette metallizzate contro la cancellazione acci¬ 
dentale - dimostra che i floppy disk Elephant Memory sono sta¬ 
ti pensati senza risparmio, avendo presente soltanto il migliore 
servizio da offrire all’utente. 

E che i floppy disk Elephant Memory offrono un buon servizio 
lo dimostrano i milioni di pezzi venduti ogni anno negli Stati 
Uniti, uno dei mercati più evoluti ed esigenti. 

I floppy disk Elephant Memory sono distribuiti in Italia da KING 


MEC, i professionisti dell’ufficio: ecco perchè è così facile tro¬ 
varli negli oltre duemila punti vendita autorizzati - articoli per uf¬ 
ficio, cartoleria, computer shops - che espongono il marchio 
dell’elefante. 

CARATTERISTICHE 

COMPATIBILITÀ: tutti i sistemi 5 1/4”, 3 1/2” 

Singola e doppia faccia - singola, doppia e quadrupla 
densità 

CAPACITÀ: secondo l’hardware (corrispondente alle specifiche 
di tutte le case costruttrici). 

CERTIFICAZIONE: dischi singolarmente certificati a livello 
ugualé o superiore agli standards ANSI, ECMA, ISO. 
CONDIZIONI D’USO: temperatura 10 - 52°C. 
umidità relativa 8% - 80%. 



ELEPHANT NON DIMENTICA 


Francia: Soroclass, Boulogne, Tel.: 16 (1) 605-98-99, Telex: 206436 

Germania: Marcom Computerzubehòr GmbH. Hannover. Tel.: (05 11) 64 74 20, Telex: 923818 , 

Gran Bretagna: Dennison Mfg. Co. Ltd., Watford, M. (0923) 41244, Telex: 923321 

Altri Paesi: Dennison International Company, Germania, Te!.: (02 11) 25 37 57. Telex: 858 6600 



IN ITALIA DA 

King MeC S-p.A., via Regio Parco 108 bis, 10036 Settimo Torinese, tei: 8009393, Telex: 211467 


Hi 


KING MEC 













